Нужно добавить возможность выбора пути к папке в Delphi. Как вызвать стандартный системный диалог?
1 ответ
В Windows Vista и выше, можно использовать такой код:
var
OpenDialog: TFileOpenDialog;
SelectedFolder: string;
.....
OpenDialog := TFileOpenDialog.Create(MainForm);
try
OpenDialog.Options := OpenDialog.Options + [fdoPickFolders];
if not OpenDialog.Execute then
Abort;
SelectedFolder := OpenDialog.FileName;
finally
OpenDialog.Free;
end;
Или универсальный (для XP и выше):
uses
FileCtrl;
...
var
SelectedFolder: string;
begin
SelectDirectory('Выберите директорию','',SelectedFolder);
end;
-
-
-
@Татьяна, в таком случае стоит принять ответ нажатием на галочку слева от него.– Qwertiy ♦8 фев 2018 в 14:35
SelectDirectory