Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Диалоговые окна » Показать диалог выбора папки

Показать диалог выбора папки

Автор: Борисов Сергей

Функция возвращает путь к выбранной папке.

Uses ShlObj;
...
Function ShowDialogDIR: String;
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 := 'Выберите папку';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    GlobalFreePtr(lpItemID);
    Result:=TempPath;
  end;
end;

Пример использования:

Procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ShowDialogDIR);
end;

Домен si

Ссылки на родственные ресурсы. Адрес и режим работы.

101domain.ru
Туры малайзия

Предложения турагентствам. Отдых в России.

sunplanet.ru

Просмотров: 2500

Обсудить на форуме