无需Dll实现的全程鼠标Hook

该方法能够监控到form 外面的鼠标移动情况，无需Dll实现
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Procedure Hook(En: Boolean = true);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hHook: LongWord;
  xy: TPoint;

implementation

{$R *.dfm}
Function HookProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
Begin

  Result := 0;
  If(peventmsg(lparam)^.message = WM_LBUTTONDOWN) Or
    (peventmsg(lparam)^.message = WM_LBUTTONUP) Or
    (peventmsg(lparam)^.message = WM_LBUTTONDBLCLK) Or
    (peventmsg(lparam)^.message = WM_MOUSEMOVE) Or
    (peventmsg(lparam)^.message = WM_RBUTTONDOWN) Or
    (peventmsg(lparam)^.message = WM_RBUTTONUP) Or
    (peventmsg(lparam)^.message = WM_RBUTTONDBLCLK) Or
    (peventmsg(lparam)^.message = WM_MBUTTONDOWN) Or
    (peventmsg(lparam)^.message = WM_MBUTTONUP) Or
    (peventmsg(lparam)^.message = WM_MBUTTONDBLCLK)
    Then
    Begin
      GETCURSORPOS(XY);
      form1.Caption := IntToStr(XY.x) + ' ' + IntToStr(XY.y);
    End;
  Result := CallNextHookEx(hHook, iCode, wParam, lParam);

End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hook;

end;

procedure TForm1.Hook(En: Boolean);
begin
  If En Then
    hHook := SetwindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0)
  Else
    UnHookWindowsHookEx(hHook);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Hook(false);

end;

end.