Как сделать выбор сетевого ресурса как ...

← →
Анатолий (2003-09-06 10:30) [0]

Как сделать выбор сетевого ресурса как сделано это в "сетевом окружения"

← →
Rouse_ (2003-09-07 11:14) [1]

Поподробнее плз...
А то что-то не понятно, что требуется

Желаю успехов

← →
Анатолий (2003-09-08 16:14) [2]

Мне необходимо выбрать папку на другой машине через сеть

← →
Петров Денис (2003-09-08 20:26) [3]

Можно с помошью станартного диалога "Обзор папок", что-то вроде этого:
...
uses ShlObj;
...
var bInfo: BROWSEINFO;
pIIDList: PItemIDList;
FullName: PChar;
...
bInfo.hwndOwner := Handle;
if SHGetSpecialFolderLocation(Handle, CSIDL_NETWORK, bInfo.pidlRoot) <> NOERROR then
begin
ShowMessage("Ошибка!");
Exit;
end;

GetMem(bInfo.pszDisplayName, MAX_PATH);
bInfo.lpszTitle := "Выберите сетевую папку:";
bInfo.ulFlags := BIF_SHAREABLE or BIF_NEWDIALOGSTYLE;
bInfo.lpfn := nil;

pIIDList := SHBrowseForFolder(bInfo);
if pIIDList <> nil then
begin
FullName := StrAlloc(MAX_PATH + 1);
SHGetPathFromIDList(pIIDList, FullName);
Dir := StrPas(FullName);
StrDispose(FullName);
end;
FreeMem(bInfo.pszDisplayName);
...

Как сделать выбор сетевого ресурса как ... Найти похожие ветки