В этой статье покажу пример, как вызвать диалог, для выбора папки.
1 2 3 4 5 6 7 8 9 10 11 |
uses FileCtrl; var Dir: string; begin // Просим пользователя выбрать требуемый каталог, стартовый каталог C: if SelectDirectory('Выберите каталог', 'C:\', Dir) then ShowMessage('Выбранный каталог = '+Dir) else ShowMessage('Выбор каталога прервался'); end; |
Если пользователь выбрал каталог (т.е. нажал на ОК), то путь выбранного каталога записывается в переменную Dir.
Благодарю за статью!!!
Из головы вылетело.
Задолбался искать.