Home

Page 233
Page 233
background image

226

Глава 5

 Информация о

 J

 info

Hostname;

 Type:

NetBIOS Scope

 Proxy

NetBIOS

 Uses DNS:

DNS Sewers IP:

 5.7. Форма будущей программы

Этот код выполняет следующее: если сейчас выделена первая закладка, то

надо вызвать процедуру GetiPinfo. Все, подготовка закончена, переходим
К Программированию ЭТОЙ загаДОЧНОЙ Процедуры GetiPinfo.

Добавьте в разделе private нашей формы следующее:

private

procedure GetiPinfo;

Таким образом мы объявим эту злосчастную процедуру. Теперь нажмите
сочетание клавиш

 и Delphi подготовит для вас заго-

товку новой процедуры, в которую нужно вставить код из листинга 5.3.

Листинг

 'Процедура

I l l

procedure

pAddrStr:

begin

 FixedlnfoSize);


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

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