ok fehler gefunden...
Delphi-Quellcode:
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
//es ist ebenfalls moeglich die Bearbeitung an eine Bedingung zu knuepfen
//it's possible to call CallNextHookEx conditional only.
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
case nCode < 0 of
TRUE: exit; //wenn code kleiner 0 wird nix gemacht
//if code smaller 0 nothing has to be done
FALSE:
begin
sendmessage(WindowHandle, WM_KeyLogMessage, wParam, lParam);
in dem sendmessage stand HookHandle... is natürlich bullshit... muss windowhandle heißen...
ausserdem ist der
HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, 0);
hook nur lokal (innerhalb deiner anwendung...
bitte wie vorhin beschrieben auf
HookHandle := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHookProc, HInstance, 0);
ändern und die message als const = 13 deklarieren... dann geht alles !
gruß
reli