Вызов системного диалога выбора каталога
Вызов системного диалога выбора каталога
Вызов системного диалога выбора каталога Для этого используйте функцию SHBrowseForFolder из ShlObj. Пример: procedure TForm1.Button1Click(Sender: TObject); Var InfoType: Byte; BI: TBrowseInfo; Image: Integer; PIDL: PItemIDList; Path: array[0..MAX_PATH - 1] of Char; ResPIDL: PItemIDList; begin SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, PIDL); with BI do begin hWndOwner := Form1.Handle; lpszTitle := 'Выберите директорию'; ulFlags := BIF_StatusText; pidlRoot := PIDL; lpfn := NIL; iImage := Image; end; ResPIDL := SHBrowseForFolder(BI); SHGetPathFromIDListA(ResPIDL, @Path[0]); ShowMessage(Path); end;
