Избитая тема о хуках

library HookLib;
 
uses
  Windows,
  Dialogs,
  Messages;
 
var
  // хэндл окна, которому посылаем сообщение из хук-процедуры
  LogHWND: THandle;
  HOOK_HANDLE: HHOOK;
 
function MouseHook(Code: integer; WParam,LParam: DWORD): DWORD; stdcall;
begin                
  // -- цитата из справки Delphi --
  {wParam
     Specifies the identifier of the mouse message. }
  Result:= CallNextHookEx(HOOK_HANDLE,Code,WParam,LParam);
  if Code = HC_ACTION then
  // посылаю окну сообщение с указанием идентификатора мышиного
  // события (WParam)
  SendMessage(LogHWND,WM_USER,WParam,0);
end;
 
procedure SetMouseHook(LogWindow: THandle);
begin
  LogHWND:= LogWindow;
  HOOK_HANDLE:= SetWindowsHookEx(WH_MOUSE,@MouseHook,HInstance,0);
end;
 
procedure UnHook;
begin
  if HOOK_HANDLE <> 0 then begin
    UnHookWindowshookEx(HOOK_HANDLE);
    HOOK_HANDLE:= 0;
  end;
end;
 
exports
  SetMouseHook, UnHook;
 
begin
  LogHWND:= 0;
  HOOK_HANDLE:= 0;
end.

unit HookLib_Int;
 
interface
 
uses
  Windows;
 
  procedure SetMouseHook(LogWindow: THandle); external 'HookLib.dll';
  procedure UnHook; external 'HookLib.dll';
 
implementation
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMUser(var Msg: TMessage); message WM_USER;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses HookLib_Int;
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin          
  // посылаю ДЛЛ свой хэндл
  SetMouseHook(Handle);
end;
 
procedure TForm1.WMUser(var Msg: TMessage);
begin
  // принимаю из хук-процедуры идентификатор
  // мышиного события
  inherited;
  Memo1.Lines.Add(IntToStr(Msg.WParam));
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnHook;
end;
 
end.