Alle Systemweiten Eingaben abfragen

[Destroyer446]

Hallo Delphi-Com,
ich möchte für eine Aufzeichnung eine Systemweite Abfrage aller Mausklicks + Tastatureingaben abfragen.
Ich möchte nicht für jede Taste ein Hotkey registrieren und wie ich das mit den Mausklicks hinbekomme
weiß ich schon gar nicht
Aber vielleicht ja jemand von euch?

Danke für jede Antwort!

€dit: Sorry, hab nochmal in Google gesucht, und es gefunden. Schon geklärt.
Für die, die es suchen: Hooks in Delphi setzen

Mfg

[Destroyer446]

*Hab doch noch ein Problem, und zwar habe ich einen Code womit ich Keyboard-Eingaben
Handle-Weit abfragen kann.
Wie kann ich das jetzt Systemweit machen?
DLL:

Delphi-Quellcode:

library KeyboardHook;

uses
  Windows, Messages, SysUtils, Dialogs;

var
  HookHandle: Cardinal = 0;
  WindowHandle: Cardinal = 0;
  PressedKey: Integer = 0;
  LastKey: Integer = 0;

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT; stdcall;
begin
//es ist ebenfalls möglich die Bearbeitung an eine Bedingung zu knüpfen
//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
        PressedKey := WPARAM;  
        If LastKey = PressedKey then
        begin
          PressedKey := 0;
          LastKey := 0;
        end
        else
          LastKey := WPARAM;
//Hier kann jetzt alles bearbeitet werden
//Here one can work with the parameters
      end;
  end;
end;

function InstallHook(Hwnd: Cardinal): Boolean; stdcall;
begin
  Result := False;
  if HookHandle = 0 then begin
//Erstmal Hook installieren
//First install the hook
    HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc,
    HInstance, 0);
//Uebergebenes Fensterhandle sichern
//Save the given window handle
    WindowHandle := Hwnd;
    Result := TRUE;
  end;
end;

function UninstallHook: Boolean; stdcall;
begin
//Hook aus der Hookchain entfernen
//Uninstall hook from hook chain
  Result := UnhookWindowsHookEx(HookHandle);
  HookHandle := 0;
end;

procedure GetPressedKey(var Res: Integer); stdcall;
begin
  Res := PressedKey;
  PressedKey := 0;
end;

exports
//Installations- und Deinstallationsroutine exportieren
//Export the installation and deinstallation routine
  InstallHook,
  UninstallHook,
  GetPressedKey;
end.

Mfg

[jaenicke]

Wie meinst du das? Soweit ich das sehe setzt der Code doch einen systemweiten Hook.

Davon abgesehen brauchst du für einen globalen Tastatur- oder Maushook keine extra DLL. (Auch wenn es oft fälschlicherweise behauptet wird. )

[Destroyer446]

War auch eigentlich so beschrieben, nur wenn ich das Fenster wechsle nimmt er keine Tasten mehr auf...

Und wie funktioniert das ohne DLL?

Mfg

[himitsu]

Garnicht?

Diese Code muß in jeden Prozess injiziert werden, darum ja auch die DLL.

OK, wenn dem nicht so ist.

Es gibt 2 große Gründe für DLLs:
- entweder wird der Hook in jeden Prozess injiziert
- oder er wird wo anders im System geladen

Alles was nicht innerhalb deiner Anwendung läuft, muß aber in eine DLL, da es sonst drüben nicht geladen werden kann.
Oder man reserviert selber drüben Speicher, kopiert den Code rüber, paßt noch ein paar Handles/Pointer an und startet z.B. bei diesem Code einen Remote-Thread.


Komisch, vorhin sah es irgendwie nach der ersten Variante aus.

[Destroyer446]

Und... wie injiziere ich den in jeden Prozess?
Außerdem - Wenn ich das Handle von nem anderen Fenster nehme wie Skype, funktioniert das auch nicht...

Mfg

[jaenicke]

Zitat von himitsu:

Garnicht?

Diese Code muß in jeden Prozess injiziert werden, darum ja auch die DLL.

Davon, dass man Blödsinn wiederholt, wird er auch nicht wahrer...
Ich habe oben ja schon geschrieben, dass das was globale Maus- und Tastaturhooks betrifft nur oft fälschlicherweise behauptet wird. Dass du dann trotzdem wieder anfängst solche Gerüchte zu verbreiten...

Das stimmt für die meisten Hooks, auch der Maus- und Tastaturhooks, die im Desktop Window Manager ansässig sind. So auch der oben genannte WH_KEYBOARD. Denn da dieser im Desktop Window Manager läuft, kann dieser keinen Code einer anderen Anwendung ausführen.

Es stimmt aber nicht generell für globale Maus- und Tastaturhooks. Die Lowlevel Maus- und Tastaturhooks arbeiten im System und nicht in einem externen Prozess. Und deshalb können die auch auf Code in einer Anwendung direkt zugreifen und es wird keine DLL benötigt.

Und wer es immer noch nicht glaubt, ein schnell gestricktes Beispiel liegt im Anhang. Die Umwandlung von Tasten wie ! oder so fehlt noch.

// EDIT:
Und injiziert werden muss schonmal gleich gar nix. Die Hook-Prozedur wird vom System oder vom DWM aufgerufen, mehr nicht...

[Furtbichler]

Zitat von jaenicke:

Davon, dass man Blödsinn wiederholt, wird er auch nicht wahrer...

Ein wenig arrogant heute, wie? Und was für ein Benehmen... Shocking.

[jaenicke]

Wenn ich extra schreibe, dass das nur immer wieder falsch irgendwo behauptet wird und das dann genau wieder kommt, dann finde ich das halt nicht wirklich schön...

[Luckie]

Zitat von Furtbichler:

Zitat von jaenicke:

Davon, dass man Blödsinn wiederholt, wird er auch nicht wahrer...

Ein wenig arrogant heute, wie? Und was für ein Benehmen... Shocking.

Was ist daran arrogant, wenn etwas richtig gestellt wird?