Delphi Hook Na mysz

[komar_rk]

Witam piszę bota do gry.
Muszę założyć hook na myszkę w obrembie okna bota jednak wszelkie próby zakończyły się fiskiem. Próbowałem tak:

unit MouseHook;

   interface

uses
  Windows,
  Messages,dialogs;



const
WM_GOTCLICK=WM_USER+572;

var
hhk :HHOOK;
FormHandle: THandle;
x,y: integer;
function CreateHook(HWnd: THandle):boolean ;stdcall;
 implementation
function MouseProc(nCode : integer; WPARAM : wParam; LPARAM :lParam) :lresult;stdcall;
begin


if (wparam=WM_LBUTTONDOWN) or (wparam=WM_NCLBUTTONDOWN) then
   begin
     x:= lo(lparam);
       y:= hi(lparam);

   end;

Result:=CallNextHookEx(hhk, nCode, wParam,
        lParam);


end;


function CreateHook(HWnd: THandle):boolean ;stdcall;
begin

hhk:=SetWindowsHookEx(WH_MOUSE, MouseProc, HInstance,0);
 result:= true;

 end;


procedure KillHook; stdcall;
begin

    UnhookWindowsHookEx(hhk);
    hhk:=0;

end;

procedure CloseDLL(Reason:Integer);
begin
  if Reason=DLL_PROCESS_DETACH then
    KillHook;

end;


end.

Jednak to nie działa. Jak mogę to zrobić.
Z góry dzięki.

 

[komar_rk]

Dawno sobie poradziłem do kasacji.

 

[emze]

By pomóc w podobnych przypadkach, możesz opisać jak sobie z tym poradziłeś.