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

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

средства Windows

abs2 ©   (2004-01-20 15:43:00) 

Как с помощью средств Windows можно вызвать окно, такое же как при "найти файлы и папки / обзор". В этом окне указаны все диски и сетевое окружение.

---

YuRock   (2004-01-20 16:05:00) [1]

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_RETURNONLYFSDIRS;
 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;

---

Семен Сорокин   (2004-01-20 15:52:00) [2]

Form + 3 Button + ShellTreeView + Edit
:))

---

VAleksey   (2004-01-20 15:48:00) [3]

Uses FileCtrl;

SelectDirectory(...

Кто скажет, что не средствами Windows? :-))

---

Наверх