Home

Page 271
Page 271
background image

264 Глава 5

 ResType: DWORD;

const NetContainerToOpen:

function

 NetContainerToOpen: PNetResource;

ResScope, ResType,

 DWORD): THandle;

function

 TTreeNode;

ResScope, ResType, ResUsage: DWORD;

 THandle):

Здесь описано три функции, хотя мы увидели пока только одну. Вы тоже

должны объявить все три функции, а их содержимое мы будем писать по-

степенно. Нажмите

 чтобы Delphi создал заготовку для

всех трех функций. Теперь нужно найти функцию

 с которой мы

уже столкнулись, и написать в ней следующее:

function

 NetContainerToOpen: PNetResource;

ResScope, ResType, ResUsage: DWORD): THandle;

var

hNetEnum: THandle;

begin

Result

 0;

if

 <>

 ResType,

 or

NetContainerToOpen, hNetEnum)) then

 вышла')

else

Result := hNetEnum;

end;

Весь смысл этой функции — запустить перечисление ресурсов с помощью

функции WNetopenEnum. После этого она проверяет результат выполнения запу-

щенного перечисления и возвращает его. Функция WNetopenEnum выглядит сле-

дующим образом:

function

 dwUsage: DWORD;

 PNetResource;

var

 THandle

): DWORD; stdcall;

Эта функция открывает перечисление сетевых устройств в локальной сети.

Рассмотрим передаваемые ей параметры.

 dwScope — какие ресурсы будут включаться в перечисление. Возможны

комбинации следующих значений:

 — все ресурсы сети;


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

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