Home

Page 255
Page 255
background image

248

Глава 5

Теперь приступим к программированию. Для начала напишем код, который

будет выполняться после нажатия кнопки Обновить (листинг 5.5).

//строка

//Используется для показа заголовка

//Таблица адресов

procedure

 TObject);

Size:

I: Integer;

 DWORD;

IpAddrTable:

begin

Size := 0;

GetIpNetTable(nil, Size, True);

NetTable :=

try

if

 Size, True) =

 then

begin

//Получаем таблицу IP-адресов

IpAddrTable :=

try

//Запоминаем первый интерфейс

Currentlndex

 на интерфейсе

 Currentlndex), Currentlndex]

 Физический адрес

//Для каждой записи ARP

 := 0 to

 - 1 do

begin

NetRow


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

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