globaler HOOK funzt. nur lokal

[ForestX]

Ich versuche ein hook quasi global zu machen. Ich habe die Geschichte in ne DLL ausgelagert aber es funktioniert nur wenn mein fenster den focus hatt.
Fände voll coll wenn mir jemand helfen könnte weil ich bin voll am verzweifeln und fühle mich ein wenig verloren.
Ja und dann noch
1.Nein ich will keinen keylogger schreiben (ein trainer soll es werden)
2.Ja Hab wie ein blöder im Foren gesucht bis ich bekloppt wurde
3.Ja ich habe Assabards tuto gelesen und gegoogelt wie ein blöder


so code :

Delphi-Quellcode:

library Project2;



uses
  sharemem,
  windows,
  messages;

//{$R *.res}
var HookHandle :Cardinal = 0;
var Windowhandle :cardinal = 0;

function KeyboardHookProc(nCode:integer; wParam: WPARAM ; Lparam:LPARAM):LRESULT;stdcall;
begin
Result := CallNexthookEX(HookHandle,ncode,wparam,lparam);

case nCode < 0 of
true : exit;
false:
begin
sendmessage(WIndowHandle ,WM_USER +23,wparam,lparam);
end;
end;
end;


function InstallHook(Hwnd: Cardinal): boolean; stdcall;
begin
Result := False;
if HookHandle = 0 then begin
HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc,Hinstance,0);

windowhandle := Hwnd;
result := True;
end;
end;



function UninstallHook :boolean; stdcall;
begin
result := UnhookwindowsHookEx(HookHandle);
HookHandle := 0;
end;

exports
InstallHook,
UninstallHook,
keyboardHookProc ;


end.

Ich bin so Verzweifelt