Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.042 c
14-1078460059
Rouse_
2004-03-05 07:14
2004.04.04
C Днем Рождения 5 Марта


14-1078557544
ИМХО
2004-03-06 10:19
2004.04.04
Вопрос создателям Delphi-компонентов


7-1074418223
DENNIS
2004-01-18 12:30
2004.04.04
Закрыть доступ


8-1070014921
Ranma
2003-11-28 13:22
2004.04.04
GLScene


6-1075285650
Васек
2004-01-28 13:27
2004.04.04
Ping