Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

средства Windows   Найти похожие ветки 

← →
abs2   (2004-01-20 15:43) [0]

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

---

← →
VAleksey ©   (2004-01-20 15:48) [1]

Uses FileCtrl;

SelectDirectory(...

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

---

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

Form + 3 Button + ShellTreeView + Edit
:))

---

← →
YuRock ©   (2004-01-20 16:05) [3]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c