Как вызвать диалог выбора пути к папке в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

var
  FolderDialog: TFileOpenDialog;
begin
  FolderDialog := TFileOpenDialog.Create(nil);
  try
    FolderDialog.Options := [fdoPickFolders];
    if FolderDialog.Execute then
    begin
      ShowMessage('Selected folder: ' + FolderDialog.FileName);
      // Обработка выбранной папки
    end;
  finally
    FolderDialog.Free;
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

var
  FolderDialog: TOpenDialog;
begin
  FolderDialog := TOpenDialog.Create(nil);
  try
    FolderDialog.Options := [ofPathMustExist, ofFileMustExist];
    FolderDialog.Filter := 'Folders|*.none';
    if FolderDialog.Execute then
    begin
      ShowMessage('Selected folder: ' + ExtractFilePath(FolderDialog.FileName));
      // Обработка выбранной папки
    end;
  finally
    FolderDialog.Free;
  end;
end;