Простой, но парой такой необходимый Delphi компонент, позволяющий вызывать диалог выбора папки. Хотя свойств и параметров в нем не так уж и много приведу их небольшую расшифровку:
1) NewFolder - Св-во задающее создавать ли кнопку "Новая папка" в диалоге выбора каталога. 2) TitleName - В этом свойстве можно задавать название шапки диалога. 3) Execute - Собственно функция вызова диалога. 4) DirPath - Св-во передающееся функцией Execute - путь к папке которую вы выбрали.
Пример вызова диалога при клике на кнопке:
procedure TForm1.Button1Click(Sender: TObject); begin DirDialog1.Execute; end;
За компонент дружно скажем спасибо Яковченко Сергею.
Установка: Здесь все очень просто. В главном меню Delphi нажимаем Component => Instal Component. В появившемся окне, в первой строчке указываем путь до PDirSelected.pas, жмем ОК. Если появляется небольшое окошечко, жмем в нем Instal. Компонент установлен.