| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать выбор сетевого ресурса как ... [D6, Win95/98, WinME, NT4, Win2k, WinXP]
Анатолий © (2003-09-06 10:30:00)
Как сделать выбор сетевого ресурса как сделано это в "сетевом окружения"
Петров Денис (2003-09-08 20:26:00) [1]
Можно с помошью станартного диалога "Обзор папок", что-то вроде этого:
...
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);
...
Анатолий (2003-09-08 16:14:00) [2]
Мне необходимо выбрать папку на другой машине через сеть
Rouse_ (2003-09-07 11:14:00) [3]
Поподробнее плз...
А то что-то не понятно, что требуется
Желаю успехов
| |
