Fórum DLL: Detectar click do Mouse #375433

library HookMsg;

uses
  Forms,
  Windows,
  Messages,
  HookCommon in ´src\HookCommon.pas´;

{$J+}
const
  Hook: HHook = 0;
  KBHook: HHook = 0;
{$J-}

{$R *.res}

function MouseHookProc(nCode: Integer; WP: WParam; LP: LParam): LResult; stdcall;
begin
   if XXX = WM_MBUTTONDOWN then // Como identifico o clique aqui???
      PostMessage(FindWindow(´TfNomeDoForm´, nil), MouseHookMessage, WP, Integer(MouseDirection));

   Result := CallNextHookEx(Hook, nCode, WP, LP);
end;

procedure HookMsgDetect; stdcall;
begin
   if Hook = 0 then
      Hook := SetWindowsHookEx(WH_MOUSE,
                              @MouseHookProc,
                               HInstance,
                               0);
end;

procedure UnHookMsgDetect; stdcall;
begin
  UnhookWindowsHookEx(Hook);
  Hook := 0;
end;

exports
  HookMsgDetect, UnHookMsgDetect;

begin

end.