| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Диалог выбора директории.

Лёша ©   (2009-12-16 00:14:00) 

Есть ли готовый сабж в Delphi?

---

Демо   (2009-12-16 10:10:00) [1]

unit DirBrowse;

interface
uses windows, SysUtils, ShlObj;

function BrowseDir(hOwner : Integer; cTitle : string) : string;

implementation

function BrowseDir(hOwner : Integer; cTitle : string) : string;
var
   lpbi : TBROWSEINFO;
   lpBuffer : LPSTR;
   il : PItemIDList;
begin
   ZeroMemory(@lpbi, SizeOf(TBROWSEINFO));
   lpbi.hwndOwner := hOwner;
   lpbi.lpszTitle := LPSTR(cTitle);
   lpbi.ulFlags := BIF_BROWSEINCLUDEFILES;
   lpbi.lpfn := nil;
   lpbi.lParam := 0;
   lpbi.pszDisplayName := StrAlloc(MAX_PATH);

   il := SHBrowseForFolder(lpbi);

   lpBuffer := StrAlloc(MAX_PATH);
   ShGetPathFromIDList(il, lpBuffer);
   Result := string(lpBuffer);
   StrDispose(lpBuffer);
end;
end.


---

antonn   (2009-12-16 09:36:00) [2]

кто то из местных дал - http://desksoft.ru/index.php?downloads=files&id=9

---

Лёша   (2009-12-16 00:29:00) [3]

Подойдет. Спасибо.

---

Игорь Шевченко   (2009-12-16 00:18:00) [4]

SelectDirectory не подойдет ?

---

Наверх