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