Delphi вики
Advertisement

Директория программы

ExtractFilePath(ParamStr(0))
ExtractFilePath(Application.ExeName)

SelectDirectory

Функция выводит диалоговое окно, чтобы позволить пользователю выбрать директорию ChosenDirectory (диск + путь).
Вариант 1.
function SelectDirectory ( const Caption : string; const StartDir : WideString; out ChosenDir : string ) : Boolean;

Показывает диалог обзора (просмотра) Windows, инициализированный заданной переменной StartDir. Текст Caption показывается в верхней части диалога.
Если пользователь нажимает ОК, выбранная директория возвращается в переменной ChosenDir, а возвращаемое значение равно True.
Если пользователь нажмет кнопку Cancel, то ничего не будет выведено, а возвращаемое значение равно False.

Вариант 2.
function SelectDirectory ( var CurrDir : string; DialogOptions : TSelectDirOpts ; HelpContext : Longint ) : Boolean;

Выводит разные типа диалога, которые отображают файлы в текущей выбранной директории.
Значение CurrDir используется для перемещения показа в заданную директорию, и оно заменяется выбранным значение, если пользователь нажмет ОК.
Параметры DialogOptions и HelpContext выходят за рамки этого описания. Они могут быть без опасений установлены в значения по умолчанию, как в данном примере.

Advertisement