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;
...