In Hook auslösender Prozess ermitteln

[Zacherl]

Er sucht aber nicht die eigene ProcessId, sondern die PID des Prozesses, der grade eine Eingabe empfangen hat. Beim LLKEYBOARD_HOOK wird die DLL ja nichts injected, deshalb funktioniert deine Methode da nicht. Aber das schon genannte GetForegroundWindow, sollte eigentlich klappen.

[Sir Rufo]

Zitat von hesch21:

hab's ausprobiert. Im dwExtraInfo kommt kein Fensterhandle daher.
Irgendwie brauche ich immer noch jemand, der bei mir den Rollladen hoch zieht. Und eigentlich bin ich beim Thema DLL und Hook ganz gut bewandert. Die Tutorials von Assarbad kenne ich seit Jahren und im Link, den mir baumina geschickt hat, ist ein Fehler: Maus- und Tastatur-Hook müssen nicht in eine DLL untergebracht werden (kann man sich IPC ersparen). Und wenn ich in diesem Beispiel von Assarbad die InstallHook function anschaue, resp. den ganzen Code, sehe ich keinen Sinn für WindowHandle. Wird gar nie verwendet.
Also Ihr seht, so ganz auf den Kopf gefallen bin ich eigentlich nicht, nur habe ich momentan echt das Gefühl, er stecke irgendwie im Sand.

Hmmm, warum hast du dann den KeyboardHook in einer DLL laufen?

Wenn diese DLL keinem anderen Programm bekannt ist, dann wird auch keiner darüber den Hook einhängen, sondern einen eigenen Hook einhängen (wie auch immer).

Und der Hook wird von der Tastatur ausgelöst und von keinem Programm/Form etc.
Die Tastatur sendet ein Ereignis (Taste gedrückt) und Windows schickt das durch den Hook.
Dann wird geschaut, was das aktive Fenster ist und diese Nachricht wird dann dorthin geschickt.

Und man kennt weder den Vorgänger, nach den Nachfolger beim Hook, sondern veranlasst nur, dass der nächste (wer immer das sein mag) diese Nachricht bearbeiten soll.

[hesch21]

Hallo himitsu

meine Hook-Start-Prozedur sieht wie folgt aus:

Delphi-Quellcode:

procedure HookOn(AppHandle: HWND; Welche: integer); stdcall;
begin
  if (Welche = 0) or (Welche = 2) then
     HookTastatur := SetWindowsHookEx(WH_KEYBOARD_LL, @CallBackDelHook, HInstance , 0);
  if (Welche = 1) or (Welche = 2) then
     HookMaus     := SetWindowsHookEx(WH_MOUSE_LL,    @MouseHookProc,   HInstance , 0);
  hApp         := AppHandle;
end;

Da in der DLL sowohl ein Maus- als auch ein Tastatur-Hook drin ist, kommt vom Programm, welches den Hook setzt, explizit das Window-Handle mit und die Steuerung, welche(r) Hook aktiviert werden soll.
Das Handle wird im aufrufenden Programm mittels WinHand := FindWindow ('TSILog', nil); ermittelt und explizit an die DLL übermittelt weil diese den Empfang der Tastenkombinationen über SendMessage(hApp, WM_USER + 4242, 0, 0); vollzieht.

Wie gesagt, das funktioniert alles.

Wenn das, was Aphton sagt, stimmen würde, müsste ja das mit mProz := GetCurrentProcessID; klappen, was ich bereits zu Beginn erwähnt habe, aber eindeutig nicht geht.

Und irgendwie ist mir immer noch nicht klar, warum Ihr so auf dem Handle oder der ID oder was auch immer des Prozesses oder Programmes herum reitet, welches den Hook gestartet hat. Die weiss ich ja. Aber wie komme ich an die PID, welche den Hook (oder von mir aus die DLL) aufruft?

[Sir Rufo]

Zitat von hesch21:

Und irgendwie ist mir immer noch nicht klar, warum Ihr so auf dem Handle oder der ID oder was auch immer des Prozesses oder Programmes herum reitet, welches den Hook gestartet hat. Die weiss ich ja. Aber wie komme ich an die PID, welche den Hook (oder von mir aus die DLL) aufruft?

Weil die Nachricht vom Betriebssystem kommt und von keinem Programm.

Man kann sich in diese Nachrichtenschlange einhängen (hooken) also einen Einhänger (Hook) dort reinsetzen, da es sich um einen spezielle Nachrichttypen (WH_*) handelt, wo man sich einhängen kann.

Siehe Hooks

Zitat:

A hook is a point in the system message-handling mechanism where an application can install a subroutine to monitor the message traffic in the system and process certain types of messages before they reach the target window procedure.

Dein Denkfehler ist, dass das Tastaturereignis von einer Anwendung kommt.

Es ist aber genau umgekehrt. Die Tastatur weiß nichts von irgendeiner Anwendung. Die bekommt nur den Anschlag mit und erschreckt sich dabei so sehr, dass eine Nachricht an das Betriebssystem gegeben wird.

Dieses fühlt sich nun veranlasst eine Nachricht (WH_KEYBOARD_LL) zu verschicken.
Dann wird das aktive Fenster ermittelt und an die Anwendung wird das Tastaturereignis geschickt.

Also zum Zeitpunkt (WH_KEYBOARD_LL) hat sich noch keiner darum gekümmert, wer das Tastaturereignis empfangen soll.

[hesch21]

Hallo Sir Rufo

ehrlicherweise hab ich den Hook produktiv gar nicht in einer DLL. Aber ich hab keine andere schlaue Idee gehabt, wie ich bei dem direkt im Programm eingebundenen Hook heraus finden soll, aus welchem Prozess nun der Hook angesprochen wurde. Zumal mein Programm mit dem Hook auch noch ein Dienst ist, was die Sache auch nicht einfacher macht.
Ich habe mir nun aber gedacht, in der DLL müsste das doch gehen, da diese ja 'irgendwie' direkt von dem Prozess angesteuert wird, in dem das Tastenergeignis statt findet. Aber offenbar laufe ich auch da ins Leere.

[Sir Rufo]

Zitat von hesch21:

Hallo Sir Rufo

ehrlicherweise hab ich den Hook produktiv gar nicht in einer DLL. Aber ich hab keine andere schlaue Idee gehabt, wie ich bei dem direkt im Programm eingebundenen Hook heraus finden soll, aus welchem Prozess nun der Hook angesprochen wurde. Zumal mein Programm mit dem Hook auch noch ein Dienst ist, was die Sache auch nicht einfacher macht.
Ich habe mir nun aber gedacht, in der DLL müsste das doch gehen, da diese ja 'irgendwie' direkt von dem Prozess angesteuert wird, in dem das Tastenergeignis statt findet. Aber offenbar laufe ich auch da ins Leere.

Ja, weil der Prozess kein Tastaturereignis auslöst.

Und man kann auch nicht feststellen, wer da alles einen Hook gesetzt hat.
Habe ich eine DLL, die einen Hook einhängt, dann kann ich alle die Prozesse bemerken (merken in der DLL), die den Hook mit dieser DLL einhängen. Alle anderen aber nicht - obwohl die trotzdem einen Hook haben könnten.

[Zacherl]

Zitat von hesch21:

Aber wie komme ich an die PID, welche den Hook (oder von mir aus die DLL) aufruft?

Delphi-Quellcode:

var
  Wnd: HWND;
  ProcessId,
  ThreadId: DWord;
begin
  Wnd := GetForegroundWindow;
  ThreadId := GetWindowThreadProcessId(Wnd, ProcessId);
  { .. }

Zwar um 3 Ecken rum, aber es sollte funktionieren. Zumindest solange dein Hook Prozess unter der selben SessionId und auf dem selben Desktop läuft, wie das aktuelle Vordergrundfenster.

[Neutral General]

Zitat von Zacherl:

Zitat von hesch21:

Aber wie komme ich an die PID, welche den Hook (oder von mir aus die DLL) aufruft?

Delphi-Quellcode:

var
  Wnd: HWND;
  ProcessId,
  ThreadId: DWord;
begin
  Wnd := GetForegroundWindow;
  ThreadId := GetWindowThreadProcessId(Wnd, ProcessId);
  { .. }

Aber auch nur wenn die Anwendung zufällig grad das Vordergrundfenster ist...

[Sir Rufo]

Zitat von Zacherl:

Zitat von hesch21:

Aber wie komme ich an die PID, welche den Hook (oder von mir aus die DLL) aufruft?

Delphi-Quellcode:

var
  Wnd: HWND;
  ProcessId,
  ThreadId: DWord;
begin
  Wnd := GetForegroundWindow;
  ThreadId := GetWindowThreadProcessId(Wnd, ProcessId);
  { .. }

Zwar um 3 Ecken rum, aber es sollte funktionieren. Zumindest solange dein Hook Prozess unter der selben SessionId und auf dem selben Desktop läuft, wie das aktuelle Vordergrundfenster.

Das wird schwierig, denn das soll ja in einem Dienst laufen ...

[hesch21]

Hat sich etwas überschnitten. Was Du mir schön plastisch erklärst ist mir eigentlich schön klar und ich weiss schon, dass das Keyboard-Event zum CallBack vom OS mehr oder weniger direkt von der Tastatur kommt. Aber etwas dämlich und ebenso plastisch ausgedrückt weiss das OS mit Garantie auch, welcher Prozess zu dem Zeitpunkt gerade aktiv ist. Und das möchte ich auch gerne wissen. Aber wie bringt man dieses liebe Betriebssystem dazu, dieses Geheimnis preis zu geben?