Создание мышиного перехватчика

Code:

library Hookdemo;

uses

 Beeper in '\DELDEMOS\HOOKDEMO\BEEPER.PAS';

exports

SetHook index 1,

UnHookHook index 2,

HookProc index 3;

begin

 HookedAlready:=False;

end.

Code:

unit Beeper;

interface

uses Wintypes, Winprocs, Messages;

function SetHook: Boolean; export;

function UnHookHook: Boolean; export;

function HookProc(Code: integer; wParam: Word;

lParam: Longint): Longint; export;

var

HookedAlready: Boolean;

implementation

var

ourHook: HHook;

function SetHook: Boolean;

begin

if HookedAlready then

   exit;

ourHook := SetWindowsHookEx(WH_MOUSE, HookProc, HInstance, 0);

HookedAlready := True;

end;

function UnHookHook: Boolean;

begin

UnHookWindowsHookEx(ourHook);

HookedAlready := False;

end;

function HookProc(Code: integer; wParam: Word;

lParam: Longint): Longint;

begin

if (wParam = WM_LBUTTONDOWN) then

   MessageBeep(0);

result := CallNextHookEx(ourHook, Code, wParam, lParam);

end;

end.