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. :wink:)

[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. :gruebel:

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. :gruebel:

[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:

Zitat von himitsu (Beitrag 1172160)

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... :roll:
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... :roll:

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:

Zitat von jaenicke (Beitrag 1172175)

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

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... :roll:

[Luckie]

Zitat:

Zitat von Furtbichler (Beitrag 1172216)

Zitat:

Zitat von jaenicke (Beitrag 1172175)

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

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

Was ist daran arrogant, wenn etwas richtig gestellt wird?

[Sir Rufo]

Zitat:

Zitat von Luckie (Beitrag 1172219)

Zitat:

Zitat von Furtbichler (Beitrag 1172216)

Zitat:

Zitat von jaenicke (Beitrag 1172175)

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

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

Was ist daran arrogant, wenn etwas richtig gestellt wird?

Vor allem wenn es sich um verkrustete Denkweisen handelt (die ich bis vor Kurzem auch noch hatte), da muss man schon mal mit einem Holzhammer kommen :)

[Daniel]

Der Begriff "Blödsinn" war vielleicht unglücklich gewählt.

[DeddyH]

Und so etwas war der Grund hierfür.

[Furtbichler]

Eben.

Zitat:

Zitat von jaenicke (Beitrag 1172217)

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... :roll:

Ginge mir nicht anders. Nur der Ton ist (für Dich) ungewöhnlich. Eine andere Wortwahl, und betont viele :-D, :), ;-) usw. emoticons und schon ist die Aussage kompatibel.

[Destroyer446]

So, ich habs jetzt mal auf einem anderen Weg versucht, nur bekomme ich hier immer EStackOverflow Error (nach 10s).
Mein Code (eigene Unit):

Delphi-Quellcode:

unit GlobalPressedKey;

interface

uses Windows, ExtCtrls, Classes;

type
  TGlobalPressedKey = class(TObject)
  private
    KeyTimer: TTimer;
    procedure KeyTimerOnTimer(Sender: TObject);
    function GetPressedKey: Integer;
    procedure SetPressedKey(Key: Integer);
  public                                        
    constructor Create(AOwner: TComponent; AIntervalKeyCheck: Integer = 10);      
    property PressedKey: Integer read GetPressedKey write SetPressedKey default 0;
    destructor Free;
  end;

implementation

constructor TGlobalPressedKey.Create(AOwner: TComponent; AIntervalKeyCheck: Integer = 10);
begin
 KeyTimer := TTimer.Create(AOwner);
 KeyTimer.Interval := AIntervalKeyCheck;
 KeyTimer.OnTimer := KeyTimerOnTimer;
end;

procedure TGlobalPressedKey.KeyTimerOnTimer(Sender: TObject);
var
 i: Integer;
begin
 For i := 1 to 300 do
  If GetAsyncKeyState(i) and 1 <> 0 then
  begin
   SetPressedKey(i);
   Exit;
  end;
 SetPressedKey(0);
end;

procedure TGlobalPressedKey.SetPressedKey(Key: Integer);
begin
 PressedKey := Key; // Markiert wird immer diese Zeile aber naja.... es liegt doch irgendwie am Timer oder?
end;

function TGlobalPressedKey.GetPressedKey: Integer;
begin
 Result := PressedKey;
end;

destructor TGlobalPressedKey.Free;
begin
 KeyTimer.Free;
end;

end.

Mfg

[DeddyH]

Zitat:

Delphi-Quellcode:

function TGlobalPressedKey.GetPressedKey: Integer;
begin
 Result := PressedKey;
end;

Du weist im Getter den Wert der zugehörigen Property zu, welche über den Getter ermittelt wird, der auf die Property zugreift...

[Daniel]

Passt doch mit der markierten Zeile: "PressedKey" ist eine Eigenschaft der Klasse "TGlobalPressedKey", deren Setter "SetPressedKey" immer dann aufgerufen wird, wenn Du ihr einen Wert zuweist. Und wenn wir mal schauen, was in diesem Setter passiert, dann ... huch .. sehen wir, dass Du genau der Eigenschaft etwas zuweist, in deren Setter Du gerade bist. Das Programm läuft im Kreis und nach einer gewissen Zeit wird ihm schlecht.

[Destroyer446]

Aber ich brauch den Getter doch um aus PressedKey zu lesen?!
Wie soll ich das dann machen?

Hab sowas noch nicht oft gemacht^^

Mfg

[DeddyH]

Deklarier Dir ein privates Integer-Feld namens FPressedKey. Auf das greifst Du dann zu.

Delphi-Quellcode:

procedure TGlobalPressedKey.SetPressedKey(Key: Integer);
begin
  FPressedKey := Key;
end;

function TGlobalPressedKey.GetPressedKey: Integer;
begin
  Result := FPressedKey;
end;

[Destroyer446]

Danke, klappt!

[jaenicke]

Wobei dir hoffentlich klar ist, dass du so nicht unbedingt alle Tastendrücke erwischst und auch nicht unbedingt in der richtigen Reihenfolge. ;-)
Aber wenn das für deinen Anwendungszweck kein Problem ist, gibt es da ja kein Problem.

Hintergrund:
Wenn in dem Zeitraum zwischen zweien deiner Abfragen zwei Tasten gedrückt wurden (und ein Timer ist was das angeht ja nicht immer zuverlässig, z.B. falls der PC gerade zu tun hat), bekommst du es nicht mit (wenn es dieselbe Taste war) oder die Tasten in der Reihenfolge der Tastencodes statt gedrückter Reihenfolge (wenn es unterschiedliche waren).

[Destroyer446]

Ich will nur eigene Aufzeichnungen von immer wiederkehrenden Abläufen machen,
und falls sie falsch sind, kann ich sie ja nochmal machen.
Ich würde aber gerne noch das Fensterhandle von dem Fenster bekommen, das gerade aktiv / im Vordergrund ist.

Wie kriege ich das hin?

Danke ;)

[DeddyH]

Wenn man das wörtlich übersetzt, kommt man z.B. auf GetForegroundWindow ;)

[Destroyer446]

Da hätt ich suchen können :oops:

Aber Danke ;)

Jetzt habe ich erstmal nichts mehr für euch ^^

[DeddyH]

In dem Zusammenhang gerade gefunden, aber selbst noch nie benutzt: GetGUIThreadInfo. Das könnte auch noch interessant sein, zumindest liefert es ausführlichere Infos.

[Destroyer446]

Kann man irgendwie ein eigenes OnIdle Ereignis erstellen?
Ich kann mir zwar per App: TApplication; eine neue Application erstellen,
aber wenn ich der ein OnIdle Ereignis zuweise, passiert nichts^^

Ich bräuchte aber für die Unit "GlobalPressedKey" ein eigenes OnIdle Ereignis,
damit ich den Timer weglegen kann..

€dit: Ich verwende jetzt doch einfach TTimer...
Geht einfacher ;)

Danke!

Mfg

[DeddyH]

Es gibt eine globale Variable namens Application, deren OnIdle kannst Du einen Eventhandler zuweisen.

[jaenicke]

Wobei man besser TApplicationEvents nehmen sollte, da man mit OnIdle alle anderen Handler klaut (und ggf. selbst überschrieben wird). TApplicationEvents hingegen arbeitet auf multicast Basis, es funktionieren also auch mehrere dieser Objekte.

Ob TTimer oder OnIdle macht aber ohnehin in diesem Fall keinen großen Unterschied, nur dass OnIdle eher noch unregelmäßiger aufgerufen wird, es sei denn man lässt Done auf False (aber dann wird es ständig aufgerufen --> auch nicht gut). Deshalb macht ein Timer mehr Sinn.

Und wenn es nicht so wichtig ist, dass wirklich alles angefangen wird, ist das auch besser als ein Hook da der den Rest des Systems negativ beeinflusst, wenn auch bei korrekter Implementierung kaum spürbar.

[himitsu]

Der Witz an TApplicationEvents, das hängt sich selber an diese Events, wie z.B. OnIdle.
Es hängt sich aber nur einmal daran und ruft darüber von allen existierenden TApplicationEvent-Instanzen die Methoden auf.
(hätte mir gewünscht, daß Emba dieses intern verbunden hätte :cry: )

Das hat einen netten Nachteil, denn es gibt grauenhaft programmierte Komponenten (EurekaLog z.B.), welche sich auch an diese Events hängen, nicht TApplicationEvents nutzen und somit andere daran hindern sich ordentlich dort zu registrieren, also über TApplicationEvents.

Aber dennoch rate ich unbedingt zu TApplicationEvents, auch wenn man manchmal noch manuell etweas eingreufen muß, um die von Anderen verbogenen Events wieder gradezurücken.

[hathor]

Ich habe was Interessantes gefunden:

Zitat:
Code for the watching.dll needed for the component TWatch.
Note that system-wide watching is *not* possible without
a dll.

This is NOT Freeware: It's PostCardWare. When you use
this component or think it's useful, send me a post-card
to: Florian Bömers, Colmarer Str.11, D - 28211 Bremen, Germany

And of course, I am very interested in any application
that uses this dll (or any other application you wrote).
If so, mail me (not the program, just an URL or similar) !

(c) 1997/1998 by Florian Bömers
(using memory files: seen in c't 07/1997)

send any comments, proposals, enhancements etc. to:
[e-mail]
---
Im ZIP-File ist alles vorhanden.

[jaenicke]

Zitat:

Zitat von himitsu (Beitrag 1172335)

Der Witz an TApplicationEvents, das hängt sich selber an diese Events, wie z.B. OnIdle.
Es hängt sich aber nur einmal daran und ruft darüber von allen existierenden TApplicationEvent-Instanzen die Methoden auf.
(hätte mir gewünscht, daß Emba dieses intern verbunden hätte :cry: )

Oh ja... :thumb:
Vor allem, da der Multicaster ohnehin nichts anderes macht.

Aber Multicast Events fehlen bei Delphi ja ohnehin... ich habe dafür extra eine generische Variante implementiert, in die man anonyme Funktionen, Prozeduren, Methoden, ... packen kann und das ganze mit oder ohne Thread- oder Messagesynchronisierung. ;-)
Wenn das mal bei normalen Events ginge... *träum*

// EDIT:

Zitat:

Zitat von hathor (Beitrag 1172342)

Ich habe was Interessantes gefunden:

Zitat:
Code for the watching.dll needed for the component TWatch.
Note that system-wide watching is *not* possible without
a dll.

Schon wieder. :pale:
Das finde ich dann allerdings weniger interessant, weil da sicher ne DLL drinsteckt. Herunterladen geht aber auch gar nicht, weil der Router das bei mir als Virus blockiert, das kommt also gar nicht erst auf den PC. Eben wegen der externen DLL. ;-)

Und da ich schon ne Demo ohne DLL angehängt habe...

[sansimarkus]

Dass es ohne DLL nur teilweise geht, sieht man wenn man in einer VM oder im remote-desktop tippt - dann bekommt das das programm nämlich nicht mit.

[hathor]

Das ZIP-File ist sauber - selber gemacht! :lol::lol::lol:

Willst Du eins ohne DLL?

[jaenicke]

Ich lade es einfach zu Hause herunter. Der Router dort hat keinen integrierten Virenscanner, da läuft der nur lokal, da kann ich das anschauen. ;-)