Выводит диалоговое окно, с помощью которого пользователь может выбрать директорию
FileCtrl unit
1 function SelectDirectory ( const Caption : string; const StartDir : WideString; out ChosenDir : string ) : Boolean;
2 function SelectDirectory ( var CurrDir : string; DialogOptions : TSelectDirOpts ; HelpContext : Longint ) : Boolean;
Описание
Функция выводит диалоговое окно, чтобы позволить пользователю выбрать директорию ChosenDirectory (диск + путь).
Вариант 1.
Показывает диалог обзора (просмотра) Windows, инициализированный заданной переменной StartDir. Текст Caption показывается в верхней части диалога.
Если пользователь нажимает ОК, выбранная директория возвращается в переменной ChosenDir, а возвращаемое значение равно True.
Если пользователь нажмет кнопку Cancel, то ничего не будет выведено, а возвращаемое значение равно False.
Вариант 2.
Выводит разные типа диалога, которые отображают файлы в текущей выбранной директории.
Значение CurrDir используется для перемещения показа в заданную директорию, и оно заменяется выбранным значение, если пользователь нажмет ОК.
Параметры DialogOptions и HelpContext выходят за рамки этого описания.
Они могут быть без опасений установлены в значения по умолчанию, как в данном примере.
Похожие команды
ChDir Выбор диска и директории ( папки ), в которой будет производиться работа
Пример кода : Позвольте пользователю выбрать диалог, используя первую версию
var
chosenDirectory : string;
begin // Просим пользователя выбрать требуемый каталог, стартовый каталог C:
if SelectDirectory('Выберите каталог', 'C:\', chosenDirectory)
then ShowMessage('Выбранный каталог = '+chosenDirectory)
else ShowMessage('Выбор каталога прервался');
end;
{Диалог отобразит - пользователь выбрал C:\Program Files и нажал OK}
Выбранный каталог = C:\Program Files
Пример кода : Позвольте пользователю выбирать диалог, используя вторую версию
var
options : TSelectDirOpts;
chosenDirectory : string;
begin chosenDirectory := 'C:\'; // Установка начального каталога // Просим пользователя выбрать используя полностью различные диалоги!
if SelectDirectory(chosenDirectory, options, 0)
then ShowMessage('Выбранный каталог = '+chosenDirectory)
else ShowMessage('Выбор каталога прервался');
end;
{Диалог отобразит - пользователь выбрал C:\Program Files и нажал OK}
