Диалог OpenFolder

← →
Woron © (2001-12-24 19:18) [0]

Это поднимается время от времени. Но я не нашел ответа, наверно удалили.
Так вот как вызвать диалог для выбора папки.

← →
Вадим © (2001-12-24 21:39) [1]

см. функции в FileUtils.pas

← →
Suntechnic © (2001-12-25 02:16) [2]

SHBrowseForFolder

← →
Slava © (2001-12-25 13:17) [3]

uses FileCtrl

function SelectDirectory

Кстати, у меня SelectDirectory как-то странно работает - после закрытия диалога она кидает окно моей программы на самый низ по оси Z, так что приходится писать Application.BrigToFront. Как энто понять? (Delphi 6)

попробуй shellexecute

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute( form1.Handle,nil,"c:\windows\",nil,nil,SW_SHOW)
end;

Диалог OpenFolder Найти похожие ветки