WPARAM, LPARAM in einem Hook auslesen ( gelöst )

[Corpsman]

Noch mehr Rumsuchen brachte mich zu

Delphi-Quellcode:

Function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
Var
  mhs: PMSLLHookStruct;
  b: Boolean;
  a: Cardinal;
Begin
  If wParam = WM_LBUTTONDOWN Then Begin
    a := gettickcount;
    If (a - LastAction) > Delaytime Then Begin
      // Diesen einen Click fangen wir ab
    End
    Else Begin
      result := CallNextHookEx(Mouse_HookHandle, nCode, wParam, lParam);
    End;
  End
  Else
    result := CallNextHookEx(Mouse_HookHandle, nCode, wParam, lParam);
  LastAction := gettickcount;

  If nCode >= 0 Then Begin
    mhs := Pointer(lParam);
    PostMessage(AppWnd, WM_SENDPACK, 0, 0);
  End;
End;

und das scheint zu funktionieren .