Функция SelectDirectory – выводит диалоговое окно, с помощью которого пользователь может выбрать директорию

Функция SelectDirectory в Delphi выводит диалоговое окно, с помощью которого пользователь может выбрать директорию.

Функция SelectDirectory: Позвольте пользователю выбрать диалог, используя первую версию

var
  chosenDirectory : string;
begin
  // Просим пользователя выбрать требуемый каталог, стартовый каталог C:
  if SelectDirectory('Выберите каталог', 'C:\', chosenDirectory)
  then ShowMessage('Выбранный каталог = '+chosenDirectory)
  else ShowMessage('Выбор каталога прервался');
end;

Функция SelectDirectory: Позвольте пользователю выбирать диалог, используя вторую версию

var
  options : TSelectDirOpts;
  chosenDirectory : string;
begin
  chosenDirectory := 'C:\';  // Установка начального каталога
  // Просим пользователя выбрать используя полностью различные диалоги!
  if SelectDirectory(chosenDirectory, options, 0)
  then ShowMessage('Выбранный каталог = '+chosenDirectory)
  else ShowMessage('Выбор каталога прервался');
end;