| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

получения ресурсов удаленного компа [D6, WinXP]

RaPToRidze ©   (2007-06-20 12:38:00) 

Добрый день, уважаемые мастера, нужно получить сетевые ресурсы удаленного компа получаю их так

function Get_shares(IP: String):string;
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i, ResourceBuf, EntiriesToGet: DWORD;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;

NetContainerToOpen.lpRemoteName:=PChar('\\'+IP);
NetContainerToOpen.lpProvider:=nil;
WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER, @NetContainerToOpen, hNetEnum);
while TRUE do
begin
RESOURCEBUF:= sizeof(ResourceBuffer);
EntiriesToGet:=2000;
if (NO_ERROR<> WNetEnumResource(hNetEnum, EntiriesToGet, @ResourceBuffer, ResourceBuf)) then
begin
WNetCloseEnum(hNetEnum);
exit;
end;
for i:=1 to EntiriesToGet do
result:=result+ResourceBuffer[i].lpRemoteName+#13#10;
end;
end;


но проблема в том что если стандартный логин и пароль не подходят то ресурсы не получаю ((
нужно к примеру вводить имя и пароль, как это реализовать?

---

clickmaker   (2007-06-21 13:09:00) [1]

> вводить имя и пароль, как это реализовать?

if WNetOpenEnum( ) = ERROR_ACCESS_DENIED then
WNetAddConnection2()

---

RaPToRidze   (2007-06-21 12:11:00) [2]

это функция получения ресурсов компа
а что мне надо юзать, подскажите уважаемые мастера?

---

Rouse_   (2007-06-21 09:35:00) [3]

При чем тут WNetEnumResource и логин с паролем?

---

Наверх