Скачать: CL | DM;

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

← →
Анатолий   (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);
...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c