Home

Page 267
Page 267
background image

260 Глава 5

Exit;

end;

Size

 0;

if GetAdaptersInfo(nil, Size) <>

 then Exit;

Adapters :=
try

if

 Size)

 then

begin

Adapter := Adapters;
while Adapter <> nil do
begin

//Удалить все адреса из всех интерфейсов

if (Host

 and

 then

begin

 ;

end;
//Удалить указанный адрес из всех интерфейсов
if (Host о

 and (Intf = ") then

begin

 0) ;

 := HostAddr;

end;

Adapter

end;

end;

finally

end;

 прошло

end;

Процедура получилась достаточно большая, зато универсальная и на все

случаи жизни. Попробуйте с ней подробно разобраться и понять, что она

умеет делать. У вас должны быть уже все необходимые знания.


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

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