DELPHI/Часто задаваемые вопросы и ответы на них/Win Api



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как использовать функцию Shell API SHBrowseForFolder чтобы позволить пользователю выбрать каталог?

Как использовать функцию Shell API SHBrowseForFolder чтобы позволить пользователю выбрать каталог?

См. пример
Пример:


     uses ShellAPI, ShlObj;

     procedure TForm1.Button1Click(Sender: TObject);
     var
       TitleName : string;
       lpItemID : PItemIDList;
       BrowseInfo : TBrowseInfo;
       DisplayName : array[0..MAX_PATH] of char;
       TempPath : array[0..MAX_PATH] of char;
     begin
       FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
       BrowseInfo.hwndOwner := Form1.Handle;
       BrowseInfo.pszDisplayName := @DisplayName;
       TitleName := 'Please specify a directory';
       BrowseInfo.lpszTitle := PChar(TitleName);
       BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
       lpItemID := SHBrowseForFolder(BrowseInfo);
       if lpItemId <> nil then begin
     SHGetPathFromIDList(lpItemID, TempPath);
     ShowMessage(TempPath);
     GlobalFreePtr(lpItemID);
       end;
     end;

Источник: Дельфи. Вокруг да около.

Источник получения информации: http://www.delphimaster.ru