Hook aus Service

[Delphi-Laie]

Und niemand der Experten hier wußte bisher, Dir einen Rat zu geben?

Also, der Desktop ist n.m.W. auch "nur" ein Explorerfenster.

Freelibrary hat den Rückgabewert "bool". Den würde ich abfragen (oder, noch besser, gleich mit repat until Freelibrary() die Freigabe absichern) und eben nur bei "true" bzw. verlassener Schleife den Hook neu zu installieren versuchen.

[hesch21]

Hallo Delphi-Laie
so ganz nach Laie tönt deine Antwort nicht, aber inzwischen bin ich dahinter gekommen, dass das Problem nicht am verzögerten Neustart der DLL liegt. Auch wenn ich den Neustart z.B. mit Deiner Methode verzögere, bis die DLL sicher weg ist, geht danach bereits beim ersten HookOn der SetThreadDesktop nicht. Ich bin da wirklich Laie, aber ich vermute deshalb, die DLL übernimmt/bezieht den Thread vom aufrufenden Programm/Service und bleibt somit unverändert.

Das Problem liegt eindeutig daran, dass SetThreadDesktop nicht geht, wenn bereits mal ein Hook gesetzt war und ich keine andere Art kenne, wie den SetWindowsHookEx auf den richtigen Desktop zu leiten. Nur OpenInputDesktop reicht nicht.

[Delphi-Laie]

Nun, von einem Experten bin ich weit entfernt und werde es mangels Interesses und Ehrgeizes (in dieser Hinsicht) auch bleiben. Ich beschäftigte mich mal mit Hooks und konnte welche sogar erfolgreich implementiere, stellte aber fest, daß das eine ekelhafte, fragile Angelegenheit ist (wie überhaupt m.E. das meiste des API).

Dabei half mir Assarbads Skript über Hooks. Standardfrage: Lasest Du es Dir schon durch?

Er ist der am tiefsten in diese Materie eingearbeitete der mir aus den Foren bekannten Delphi-Programmierer. Vielleicht entdeckte er diese Diskussion bisher nur nicht. Vielleicht hilft eine PM an ihn, diese Diskussion mit stärkerer Substanz zu füllen, als ich dazu bisher (nicht) imstande war.

[Delphi-Laie]

Eines fiel mir aber noch auf: "SetWindowsHookEx" hat den Rückgabewert "bool", und der sollte ausgewertet werden. Erst wenn das fehlschlägt, ist die Installation desselben gescheitert und eine diesbezügliche Ausgabe korrekt.

[hesch21]

Jein! Offenbar hängt sich der Hook, den man mit SetWindowsHookEx setzt, an den Desktop des aktuellen Thread an. Logischerweise habe ich es schon ohne den SetThreadDesktop versucht, aber dann geht gar nichts mehr. Und da beim zweiten Anlauf der SetThreadDesktop immer False liefert, komme ich schon gar nicht mehr auf den SetWindowsHookEx. Der Rückgabewert wird übrigens in HookTastatur abgelegt und weiter unten abgefragt.
Und das Tutorial von Assarbad kenne ich natürlich, habe aber in diesem Zusammenhang nichts gefunden, was mir hätte weiter helfen können.

[Delphi-Laie]

Wird der Hook überhaupt zwischenzeitlich wieder entladen, bevor er neugeladen wird? Ich finde "UnhookWindowsHookEx" nirgendwo.

[hesch21]

Habe natürlich nicht sie ganze DLL gepostet. Aber das da gibt es schon auch noch:

Code:

procedure HookOff;  stdcall;
begin
   UnhookWindowsHookEx(HookTastatur);
end;

Und logischerweise rufe ich HookOff bevor ich HookOn erneut aufrufe.

[hesch21]

Ich habe übrigens zwischenzeitlich noch zwei andere Dinge versucht:

1. Den Hook direkt im Service unterzubringen, also ohne DLL. Das funktioniert auch im Service. siehe Thread [DP]'SetWindowsHookEx ... geht systemweit auch ohne DLL ... ?'
[/DP]. Aber ausser dass die Sache einfacher zu testen ist und keine Pipe mehr nötig ist, hat es auch nichts gebracht.

2. Ich bin auf die Idee gekommen, gleich drei Hooks zu installieren, je einen für den Default, den Winlogon und ScreenSaver - Desktop. Das funktioniert sogar, bis man die erste Taste drückt. Dann verabschiedet sich der Service, aber ohne Exception. Einfach beendet. Mehrere Hooks sind möglich, das weiss ich, aber vermutlich nicht vom gleichen Typ (Keybooard).