1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var
  idHook: HHOOK;
  Counter: integer;

{...}

function JournalRecordProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if nCode = HC_ACTION then
    if lParam <> 0 then
      with PEventMsg(lParam)^ do
        if message = WM_MOUSEMOVE then
          Inc(Counter);
  Result := CallNextHookEx(idHook, nCode, wParam, lParam);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  idHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalRecordProc, HInstance, 0);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  If idHook <> 0 then
  begin
    UnhookWindowsHookEx(idHook);
    idHook := 0;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

var
  HookHandle: Cardinal = 0;
  WindowHandle: Cardinal = 0;
  previousPoint: TPoint;
  currentDist: Integer = 0;
  firstRun: Boolean = True;

{...}

function DistanceToPoint(p1,p2: TPoint): Integer;
begin
  Result := Round(sqrt(((p1.X-p2.X)*(p1.X-p2.X))+((p1.Y-p2.Y)*(p1.Y-p2.Y))));
end;


function MouseHookProc(nCode: Integer; MsgID: WPARAM; Data: LPARAM):LRESULT; stdcall;
label callNext;
var currentPoint: TPoint;
begin
  case nCode < 0 of
    True: Goto CallNext;
    False:
    begin
      If MsgId = WM_MOUSEMOVE then
      begin
        currentPoint := PMSLLHOOKSTRUCT(Data)^.pt;
        If firstRun then
        begin
          previousPoint := currentPoint;
          firstRun := false;
          goto CallNext;
        end;
        Inc(currentDist,DistanceToPoint(previousPoint,currentPoint));
        previousPoint := currentPoint;
        If currentDist mod 5 = 0 then
        begin
          PostMessage(WindowHandle,MouseMoveMessage,MsgID,currentDist);
          currentDist := 0;
        end;
      end else
      If MsgId = WM_LBUTTONDOWN then
      begin
        PostMessage(WindowHandle,LeftClickMessage,MsgID,1);
      end else
      If MsgID = WM_RBUTTONDOWN then
      begin
        PostMessage(WindowHandle,RightClickMessage,MsgID,1);
      end;
    end;  
  end;
callNext:
  Result := CallNextHookEx(HookHandle, nCode, MsgId, Data);
end;