Для вывода диалога "Обзор папок" существует функция SHBrowseForFolder. Для выбора того, какие папки будут выведены в диалоге, используется функция SHGetSpecialFolderLocation. В этой программе выводится рабочий стол со всеми подпапками (папки рабочего стола, Мой компьютер, Корзина). Для выбора папки в меню пуск используется CSIDL_STARTMENU вместо CSIDL_DESKTOP.
function TfmOptions.Selectdir(const str: string): string;
function BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM; lpData:LPARAM): integer; stdcall;
begin
Result := 0;
if uMsg = BFFM_INITIALIZED then begin
SendMessage(hwnd, BFFM_SETSELECTION, 1, LongInt(PChar(fmOptions.sx)))
end;
end;
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:='';
sx:=str;
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Application.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Выберите папку...';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or $0040 or BIF_EDITBOX or BIF_STATUSTEXT;
BrowseInfo.lpfn := @BrowseCallbackProc;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result:=StrPas(TempPath);
GlobalFreePtr(lpItemID);
end;
{
//////////////////////////////////////////////////////////////////////
--- bi.ulFlags флаги, которые задают режим отображения диалога:-----
/////////////////////////////////////////////////////////////////////
BIF_BROWSEFORCOMPUTER - Возвратить только компьютеры.
Если пользователь выбрал что-то отличное от компьютеров, то кнопка OK останется серой.
BIF_BROWSEFORPRINTER - Возвратить только принтеры. Если пользователь выбрал что-
то отличное от принтеров, то кнопка OK останется серой.
BIF_RETURNONLYFSDIRS - Возвратить только папки файловой системы.
Если пользователь выберет папки, которые не являются частью файловой системы,
то кнопка OK останется серой. Это необходимо для того если ваша программа не
работает с виртуальными папками вроде "Панель управления".
BIF_BROWSEINCLUDEFILES - Диалог просмотра будет отображать файлы вместе с директориями.
BIF_DONTGOBELOWDOMAIN - Не включать сетевые папки Доменного уровня ниже,
чем в TreeView контроле.
BIF_RETURNFSANCESTORS - В качестве выбора допустимы только объекты,
представленные в файловой системе.
BIF_STATUSTEXT - Включает область статуса в блок диалога. Функция может
установить текст посылая сообщения блоку диалога.
BIF_EDITBOX - В диалоговом окне будет присутствовать строка редактирования,
таким образом пользователь может набрать имя элемента.
BIF_VALIDATE - Если пользователь введёт неверное имя в строке редактирования,
то диалоговое окно вызовет функцию обратного вызова приложения по сообщению BFFM_VALIDATEFAILED.
Программа на Delphi использует функцию SHBrowseForFolder для отображения диалогового окна, позволяющего пользователю выбрать папку на их системе. Программа сначала получает специальную папку для рабочего стола с помощью функции SHGetSpecialFolderLocation, а затем настраивает структуру TBrowseInfo с необходимой информацией для диалогового окна.
Разбивка кода:
Определяется процедура CallBack, используемая для обработки событий в диалоговом окне.
Процедура Button1Click вызывается при клике кнопки. Эта процедура получает специальную папку для рабочего стола, настраивает структуру TBrowseInfo и затем вызывает функцию SHBrowseForFolder для отображения диалогового окна.
Если пользователь выбирает папку из диалогового окна, программа получает путь выбранной папки с помощью функции SHGetPathFromIDList и присваивает его заголовку формы.
Код также включает в себя несколько констант и структур, используемых функцией SHBrowseForFolder. Включают:
TBrowseInfo: Структура, используемая для настройки диалогового окна. Она содержит поля, такие как hwndOwner, pszDisplayName, lpszTitle, pidlRoot и lpfn.
PItemIDList: Тип - указатель на структуру ITEMIDLIST, представляющую папку или файл на системе.
Код также включает в себя комментарии, объясняющие, что каждый раздел кода делает.
Как вывести диалог 'Обзор папок' для вывода списка файловой системы.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал