Home

Page 81
Page 81
background image

74 Глава 3

 0;

Result := true;

end;

end;

end;

Код функции

 тот же самый, за исключением функции установки

ловушки. Теперь она выглядит так:

SysHook

 @SysMsgProc,

 0);

В прошлом примере в качестве первого параметра функции

 был указан

 а теперь

 Если устано-

вить ловушку данного типа, то она сможет ловить следующие сообщения.

 приложение активизировалось;

 создано новое окно;

 — уничтожено существующее окно;

 — окно свернули или развернули на весь экран;

 HCBT_MOVESIZE

 — окно переместили или изменили размер.

В общем, таким образом мы получаем доступ к сообщениям о событиях,

произошедших с окнами. Любое телодвижение окна мы сможем проследить
с помощью нашей ловушки.
Раз изменился тип ловушки, значит, нужно менять и ее саму. Вот здесь

у нас будет достаточно много нового, так что смотрите полный код про-
цедуры SysMsgProc (ЛИСТИНГ 3.3)

 3.3. Код процедуры

function

 : integer;

 : word;

 : longint) : longint; export; stdcall;

f: TextFile;

windtext, windir: array [0..255] of char;

begin

Result

 {SysHook, Code, wParam,

 Parana) ;

case code of

//Окно стало активным

b e g i n


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

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