Клуб программистов

    Функция выводит диалоговое окно, чтобы позволить пользователю выбрать директорию ChosenDirectory (диск + путь).

     Вариант 1.

     Показывает диалог обзора (просмотра) Windows, инициализированный заданной переменной StartDir. Текст Caption показывается в верхней части диалога.

     Если пользователь нажимает ОК, выбранная директория возвращается в переменной ChosenDir, а возвращаемое значение равно True.

     Если пользователь нажмет кнопку Cancel, то ничего не будет выведено, а возвращаемое значение равно False.

     Вариант 2.

     Выводит разные типа диалога, которые отображают файлы в текущей выбранной директории.

     Значение CurrDir используется для перемещения показа в заданную директорию, и оно заменяется выбранным значение, если пользователь нажмет ОК.

     Параметры DialogOptions и HelpContext выходят за рамки этого описания.

     Они могут быть без опасений установлены в значения по умолчанию, как в данном примере.

var
   chosenDirectory : string;
begin
   // Ask the user to select a required directory, starting with C:
   if SelectDirectory('Select a directory', 'C:\', chosenDirectory)
   then ShowMessage('Chosen directory = '+chosenDirectory)
   else ShowMessage('Directory selection aborted');
end;

     { Dialog displays - user selects C:\Program Files and hits OK }

     Chosen directory = C:\Program Files

var
   options : TSelectDirOpts;
   chosenDirectory : string;
begin
   chosenDirectory := 'C:\'; // Set the starting directory
   // Ask the user to select using a completely different dialog!
   if SelectDirectory(chosenDirectory, options, 0)
   then ShowMessage('Chosen directory = '+chosenDirectory)
   else ShowMessage('Directory selection aborted');
end;

     { Dialog displays - user selects C:\Program Files and hits Cancel }

     Directory selection aborted