средства 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
:))

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;

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