Home

Page 269
Page 269
background image

 Глава 5

На форме расположено три переключателя TRadioButton, которые управля-

ют работой программы. В зависимости от их установки будет изменяться
список искомых ресурсов. Помимо этого есть три компонента

с помощью которых можно выбрать, что искать: все, сетевые диски или

принтеры. Большую часть окна занимает компонент TTreeView, в котором

мы будем отображать дерево найденных сетевых устройств.
Процесс работы программы начинается с нажатия кнопки Обновить. Как

только пользователь щелкнет на ней, мы должны просканировать всю сеть

на наличие открытых ресурсов. В обработчике события

 кнопки

Обновить пишем следующий код (листинг 5.9).

procedure

var

begin

if

 then

ResScope :=

else

if

 then

ResScope :=

else

ResScope

ResType := 0;

if

 then

ResType := ResType or

if

 then

ResType

 ResType or

if

 then

ResType := ResType or

ResScope, ResType, nil);

end;

В самом начале нужно очистить компонент

 от текущих данных,

потому что сейчас мы будем заполнять его новыми данными.

После этого происходит проверка, какой компонент

 выбран.

Если это Глобальные ресурсы, то в переменную ResScope заносим константу


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

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