Home

Page 270
Page 270
background image

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

 для поиска глобальных сетевых устройств. Если выбран

пункт Подключенные, то в эту переменную заносится константа

 Если не то и не другое, то указывается константа

 для поиска запомненных в кэше ресурсов.

Следующим этапом мы проверяем, что нужно искать. Если установлен фла-
жок Все, то в переменную ResType заносится константа

Если выбран пункт Сетевые диски, то добавляется константа

 Если установлен пункт Сетевые принтеры, то нужно до-

бавить

 Здесь переменная ResType заполняется мето-

дом добавления выбранных констант. Например, если пользователь выбрал

поиск сетевых принтеров и сетевых дисков, то мы должны занести в эту пе-

ременную две константы:

 И

Заполнив необходимые переменные начальными значениями, вызываем

процедуру

 которая выглядит следующим образом:

procedure

 TTreeNode;

ResScope, ResType: DWORD;

const NetContainerToOpen: PNetResource);

var

begin

hNetEnum :=

 ResScope,

ResType,

 or

if (hNetEnum = 0) then exit;

 ResScope, ResType,

 or

 hNetEnum) ;

if

 <>

 then

end;
На входе процедура получает следующие параметры:

 ParentNode — родительский объект в дереве

 к которому будут

добавляться имена найденных ресурсов;

 ResScope — указание, где надо будет искать ресурсы (глобальные, под-

ключенные или запомненные);

• ResType — тип ресурсов, которые надо искать (все, принтеры, диски);

 NetContainerToOpen — переменная, используемая при перечислении.

В самой первой строке мы вызываем функцию openEnum, которая объявлена

в разделе public следующим образом:

public

procedure

 ParentNode: TTreeNode;


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

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