Диалог выбор папки

[DSK]

правой кнопкой мыши на панели задач-> панели-> создать панель инструментов появляется окно выбор папки
как его сделать в своей программе?

[FaTaL]

Например так:

var
  dir : string;
begin
  SelectDirectory('Выберите папку', '', dir, [sdNewFolder, sdNewUI]);
end;

Только в uses добавь FileCtrl;
В квадратных скобках выбери сам опции какие нужны.