PC-Aktionen an mehrere PCs im Netzwerk senden

[Relicted]

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