Hook funktioniert nicht systemweit

[Boombuler]

Hi,

daran wirds nicht wirklich liegen aber:

Zitat von Flips:

Delphi-Quellcode:

function InstallHook(Hwnd: Cardinal): Boolean; stdcall;
 var keyhooked: boolean;
begin
  keyhooked := false;
if HookHandle = 0 then
begin
 HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, 0);;
 HookHandle:=1;
end;
  WindowHandle := Hwnd;
  Result := keyhooked;
end;

ist nicht wirklich schön, da du den Hook nie wieder unhooken kannst!
du setzt dein HookHandle auf 1 statt den Rückgabewert der SetWindowsHookEx zu verwenden!
Machs doch lieber so:

Delphi-Quellcode:

function InstallHook(Hwnd: Cardinal): Boolean; stdcall;
var UnInst:boolean;
begin
  if HookHandle <> 0 then
    UnInst := UninstallHook;
  else
    UnInst := True;
  HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, 0);
  WindowHandle := Hwnd;
  Result := (HookHandle <> 0) and UnInst;
end;