library HookLib;
 
uses
  Windows,
  Messages;

const

  WH_MOUSE_LL = 14;
var
  HOOK_HANDLE: HHOOK;
 
// хук-процедура
function MouseHook(Code: integer; WParam,LParam: wparam): DWORD; stdcall;
var
  LogHWND: THandle;
begin
  if Code = HC_ACTION then
  begin
  LogHWND:= FindWindow(nil,'Hook_Log');
  if LogHWND <> 0 then
   case WParam of
      WM_LBUTTONDBLCLK: SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_RBUTTONDBLCLK: SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_LBUTTONDOWN:   SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_LBUTTONUP:     SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_MBUTTONDOWN:   SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_MBUTTONUP:     SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_RBUTTONDOWN:   SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_RBUTTONUP:     SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_MOUSEWHEEL:    SendMessage(LogHWND,WM_USER, WParam,LParam);
      WM_MOUSEMOVE:     SendMessage(LogHWND,WM_USER, WParam,LParam);
  end;
  {WM_MOUSEMOVE..WM_MOUSEWHEEL:
    begin
      LogHWND:= FindWindow(nil,'Hook_Log');
      if LogHWND <> 0 then

      SendMessage(LogHWND,WM_USER,WParam,LParam);
    end;
  end; }
  end;
  Result:= CallNextHookEx(HOOK_HANDLE,Code,WParam,LParam);
end;

procedure SetMouseHook;
begin
  HOOK_HANDLE:= SetWindowsHookEx(WH_MOUSE_LL,@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
  HOOK_HANDLE:= 0;
end.

    unit Unit1;
    
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMUser(var Msg: TMessage); message WM_USER;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses HookLib_Int, MSLLHookStruct;
 
{$R *.dfm}
 
var
  HookData: tagMSLLHOOKSTRUCT;

procedure TForm1.WMUser(var Msg: TMessage);
begin
  HookData:= PtagMSLLHookStruct(Msg.LParam)^;
  // читаем координаты курсора
  Label2.Caption:= 'X: ' + IntToStr(HookData.pt.X);
  Label3.Caption:= 'Y: ' + IntToStr(HookData.pt.Y);
  // определяем тип события
  case Msg.WParam of
  WM_MOUSEMOVE: Label1.Caption:= 'Движение';
  WM_LBUTTONDOWN: Label1.Caption:= 'Нажата левая кнопка';
  WM_LBUTTONUP: Label1.Caption:= 'Отпущена левая кнопка';
  WM_LBUTTONDBLCLK: Label1.Caption:= 'Двойной щелчок левой';
  WM_RBUTTONDOWN: Label1.Caption:= 'Нажата правая кнопка';
  WM_RBUTTONUP: Label1.Caption:= 'Отпущена правая кнопка';
  WM_RBUTTONDBLCLK: Label1.Caption:= 'Двойной щелчок правой';
  WM_MBUTTONDOWN: Label1.Caption:= 'Нажата средняя кнопка';
  WM_MBUTTONUP: Label1.Caption:= 'Отпущена средняя кнопка';
  WM_MBUTTONDBLCLK: Label1.Caption:= 'Двойной щелчок средней';
   WM_MOUSEWHEEL: Label1.Caption:= 'Прокрутка колеса';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetMouseHook;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnHook;
end;