Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Диалоговые окна



Вернуться к списку функций
 Открытие диалога выбора каталога

 Прислал: Ajax ( 27 мая 2002 г. )
©  Ajax
 Описание:
Отображает стандартный диалог выбора папки и возвращает путь к выбранной.

 Зависимости:
ShlObj

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Открытие диалога выбора каталога

Отображает стандартный диалог выбора папки и возвращает путь к выбранной.

Зависимости: ShlObj
Автор:       Ajax, ajax@mail.kz
Copyright:   Ajax
Дата:        27 мая 2002 г.
***************************************************************** }

Function ShowBrowseFolderForm(Title:string):string;
var bi: TBrowseInfo;
    pidlBrowse: PItemIDList;
    Buffer: array[0..255] of char;
    dispname:array[0..MAX_PATH] of char;
begin
  bi.hwndOwner := Application.Handle;
  bi.pidlRoot := nil;
  bi.pszDisplayName := dispname;
  bi.lpszTitle := PChar(Title);
  bi.ulFlags := BIF_RETURNONLYFSDIRS;
  bi.lpfn := nil;
  bi.lParam := 0;
  bi.iImage:=0;
  pidlBrowse:=SHBrowseForFolder(bi);
  if (pidlBrowse <> nil) then
    if (SHGetPathFromIDList(pidlBrowse, @Buffer)) then
      result:=StrPas(@Buffer);
end;

 Пример использования:
Edit1.Text:=ShowBrowseFolderForm('Выберите папку');


Вернуться к списку функций

Наверх ▲