Текущий архив: 2008.03.16;
Скачать: CL | DM;

Вниз

получения ресурсов удаленного компа   Найти похожие ветки 

← →
RaPToRidze   (2007-06-20 12:38) [0]

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

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;


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

---

← →
Rouse_ ©   (2007-06-21 09:35) [1]

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

---

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

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

---

← →
clickmaker ©   (2007-06-21 13:09) [3]

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

if WNetOpenEnum( ) = ERROR_ACCESS_DENIED then
WNetAddConnection2()

---

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

Текущий архив: 2008.03.16;
Скачать: CL | DM;

Наверх

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