DLL: Detectar click do Mouse

Delphi

29/09/2009

Olá,
Criei uma DLL bem simples conforme indicado no código abaixo e preciso apenas saber como detectar o click do botão do mouse, mas as mensagens interceptadas estão meio confusas.

Alguém pode me dar uma ajuda?

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.



Rtava

Rtava

Curtidas 0
POSTAR