Диалог выбора папки
Народ, помогите, СРОЧНО, скажите, какая функция WinAPI вызывает просмотр дерева папок (а-ля в Винампе и т.п.) ???
Подскажите, надо КРАЙ!!!
Подскажите, надо КРАЙ!!!
SHBrowseForFolder
С П А С И Б О
Используй функцию "[COLOR="Red"]SelectDirectory[/COLOR]" из модуля "f[COLOR="#ff0000"]ilectrl.pas[/COLOR]".
Пример функции. При выборе каталога пользователем возвращает "True" и в засовывает путь в "_DirSel".
Uses filectrl;
Function GetDir(var _DirSel:string):boolean;[INDENT]const SELDIRHELP = 1000;[/INDENT][INDENT]var mDir:string;[/INDENT]begin[INDENT]RESULT:= False;[/INDENT][INDENT]if SelectDirectory(mDir,[sdAllowCreate, sdPerformCreate, sdPrompt], SELDIRHELP) then begin[/INDENT][INDENT][INDENT]_DirSel:= mDir;[/INDENT][/INDENT][INDENT][INDENT]RESULT:= True;[/INDENT][/INDENT][INDENT]end;[/INDENT]end;
Пример функции. При выборе каталога пользователем возвращает "True" и в засовывает путь в "_DirSel".
Uses filectrl;
Function GetDir(var _DirSel:string):boolean;[INDENT]const SELDIRHELP = 1000;[/INDENT][INDENT]var mDir:string;[/INDENT]begin[INDENT]RESULT:= False;[/INDENT][INDENT]if SelectDirectory(mDir,[sdAllowCreate, sdPerformCreate, sdPrompt], SELDIRHELP) then begin[/INDENT][INDENT][INDENT]_DirSel:= mDir;[/INDENT][/INDENT][INDENT][INDENT]RESULT:= True;[/INDENT][/INDENT][INDENT]end;[/INDENT]end;