mit peekmessages keyboardqueue abrufen

[DGL-luke]

danke! das hört sich gut an. hab jetzt diesen code:

Delphi-Quellcode:

//globale funktion
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM)
:LRESULT; stdcall;
begin
form1.keybeenpressed(wParam);
result:=callnexthookex(hookhandle,ncode,wparam,lparam);
end;

//formcreate
procedure TForm1.FormCreate(Sender: TObject);
begin
CTI1.MinimizeToTray:=true;
CTI1.IconVisible:=true;
hookhandle:=setwindowshookex(WH_KEYBOARD,@KeyboardHookProc,0,0);
end;

//formdestroy
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(hookhandle);
end;

keybeenpressed wird aber anscheinend nie aufgerufen...