Home

Page 266
Page 266
background image

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

 ""'•

 ••""V

 '

 Л истин

 .

procedure

 Host, Intf: string);

var

Entry:

HostAddr,

 DWORD;

Size:

Adapters, Adapter:

begin

 0);

HostAddr := 0;

if Host <>

 then

begin

HostAddr :=

if HostAddr

 then Exit;

end;

if Intf <>

 then

begin

IntfAddr :=

if IntfAddr

 then Exit;

end;

//Удалить только один адрес

if (Host о '*') and (Intf <> ") then

begin

 HostAddr;

if

 then

 прошло

else

Exit;

end;

//Удалить все адреса

if (Host

 and (Intf <> ") then

begin


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

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