HILFE! Noch einmal der Tastaturhook

[idefix2]

Hallo,

Jetzt habe ich die diversen Hindernisse bei der Programmierung meines Tastaturhooks umschifft, und das Ding tut in meinem Testprogramm, was ich mir vorgestellt habe. Aber im Moment scheitere ich daran, aus dem lokalen Hook einen globalen zu machen, und ich habe keine Idee, was da falsch sein könnte.

Ich habe:
Die eigentliche Hookunit aus dem Testprogramm entfernt und in eine DLL ausgelagert.
Im Testprogramm an die Stelle der Hookunit eine Loadhook Unit gesetzt, die die DLL lädt und SetWindowsHookEx als ThreadId den Wert 0 und als HInstance die DLL-Handle übergibt.

Der Hook funktioniert einwandfrei, solange ich in dem Testprogramm Eingaben mache, mit dem ich die DLL geladen habe. Sobald ich eine Tastaureingabe in einem anderen Programm mache, wird mein Hook deaktiviert und bleibt dann auch inaktiv, wenn ich in mein Programm zurückkehre. Wenn ich in ein anderes Programm wechsle und dort nur die Maus verwende, passiert nichts, dann ist meine Hookroutine in meinem Testprogramm weiterhin aktiv, sobald es wieder den Focus bekommt.

So lade ich meine DLL:

Delphi-Quellcode:

unit LoadCapsLock;

interface
procedure loaddll;
procedure unloaddll;

implementation

uses windows, dialogs;

var
LibHandle: THandle;   
HookHandle: Cardinal;

inst: procedure (UseHookHandle: HHook); stdcall; // Initialisierung
uninst: procedure; stdcall; // Aufräumen

procedure error (const s: string); inline;
begin
MessageDlg (s, mtError, [mbOK], 0);
end;

procedure loaddll;
begin
LibHandle:=LoadLibrary('capslock.dll');
if LibHandle=0 then begin error ('Library not loaded'); exit end;

inst :=  GetProcAddress(LibHandle,'AfterInstall');
uninst :=  GetProcAddress(LibHandle,'AfterUninstall');

if HookHandle <> 0
then begin Error ('Hook ist bereits installiert'); exit end;

HookHandle := SetWindowsHookEx(WH_KEYBOARD,
                               GetProcAddress(LibHandle, 'KeyboardHookProc'),
                               LibHandle, 0);

if HookHandle = 0
then begin Error ('Hook Installation fehlgeschlagen'); exit end;

inst (HookHandle); // Initialisierung in der DLL
end;

...