Home

Page 274
Page 274
background image

Сеть на низком уровне 267

begin

Result := 0;

while TRUE do

begin

EntriesToGet

 2000;

if

 <>

 EntriesToGet,

 ResourceBuf)) then

begin

case

 of

 break;

else

Result := 1;

exit;

end;

end;

for i := 1 to EntriesToGet do

begin

 :=

if

 and

 <> 0 then

 ResScope, ResType,

end;

end;

end;

Самая интересная здесь функция — это

 Она перечисляет

ресурсы сетевых объектов. В Delphi она описана следующим образом:

 THandle;

var lpcCount: DWORD;

var

 DWORD

): DWORD; stdcall;

 hEnum — указатель на возвращенное функцией WNetopenEnim значение.

 lpcCount — максимальное количество возвращаемых значений. Не стесняй-

тесь, ставьте 2000. Если вы поставите сюда

 будут перечислены


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.