Globaler Tastatur-Hook tuts nur halb

[Medium]

Aloah zusammen. Ich habe auf Basis von Ollis Tutorial eine DLL für einen globalen Tastatur-Hook zusammengeschustert, und das funktioniert leider nur "halb". Es geht, so lange ich nur meine Hostanwendung gestartet habe und nichts weiter mache. Verliert diese aber einmal den Fokus, ists vorbei. Selbst wenn ich der Anwendung den Fokus wieder gebe.
Ich stelle einfach mal den DLL Code ein, er ist kurz genug. Da dies mein erster Einsatz von Hooks ist, bin ich da etwas unbeholfen. Dem msdn nach schauen die Aufrufe für mich soweit okay aus, ich weiss nichtmal mehr wonach ich schauen müsste.

Delphi-Quellcode:

library Hooks;

uses
  Windows, Messages, SysUtils;

var
  Keyboard_HookHandle: HHOOK = 0;

function KbdHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result := CallNextHookEx(Keyboard_HookHandle, nCode, wParam, lParam);
  case nCode < 0 of
    True: Exit;
    False:
    begin
      if wParam in [ord('a')..ord('z'), ord('A')..ord('Z'), ord('0')..ord('9')] then Beep;
    end;
  end;
end;

function InstallHooks: Boolean; stdcall;
var
  keybh: boolean;
begin
  keybh := false;
  if Keyboard_HookHandle = 0 then
  begin
    Keyboard_HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KbdHookProc, hInstance, 0);
    keybh := Keyboard_HookHandle <> 0;
  end;
  Result := keybh;
end;

function UninstallHooks: Boolean; stdcall;
begin
  Result := UnhookWindowsHookEx(Keyboard_HookHandle);
  Keyboard_HookHandle := 0;
end;

procedure DLLMain(dwReason: DWord);
begin
end;

exports
  InstallHooks,
  UninstallHooks;

begin
end.

Die Hostanwendung ist einfach eine normale automatisch erzeugte Standard-Delphi-Start-Anwendung, bei der ich im OnFormCreate "InstallHooks", und im OnFormClose "UninstallHooks" aufrufe (statische Bindung). Warum verliere ich den Hook?

[Medium]

Ich muss den Thread leider nochmal hoch holen :oops:. Ich kann bei meinen Suchen irgendwie immer nur Gebrabbel der Art "ja, das geht z.B. mit nem Hook" finden, aber selten auch mal praktische Beispiele, und diese meist dann auch noch in Bruchstücken oder gar gänzlich falsch. Ist dieses Thema so ein Mysterium? Es muss doch jemanden geben, der sich damit auskennt - auch ohne Gelbe Seiten :)

[Medium]

Okay, ein letzter Versuch doch noch jemand wissenden hier zu finden :), aber mit erweiterter Fragestellung: Falls sich für o.g. Problem keine Lösung findet, gibt es einen guten Grund dafür nicht sämtliche alphanumerische Tasten incl. Enter, Backspace, Space usw. als systemweiten Hotkey zu definieren? Das wäre jetzt die Notlösung die mir als einzige einfiele :?

[r29d43]

Dein globaler Hook sieht da wirklich etwas sehr dünn aus. Irgendwie fehlt da auch das bei globalen Hooks wichtige Memory-Mapping. Einen funktionierenden globalen Hook siehst du z.B. auch hier.

[Medium]

Ich hab das Mapping bzw. sonstige IPC immer nur als Möglichkeit verstanden vom Hook aus eine Aktion in einem eigenen Programm auszulösen. Danke dir für den Stubs auf den Thread! Ich schau mal was da anders ist, und ob ich das mit dessen Hilfe endlich hin bekomme!

Edit: Ich hab nun die DLL aus dem Thread genommen, und spaßeshalbar mal das Mapping komplett raus genommen, inc. des Benachrichtigens eines Programmes usw. - kurzum: Es schaut jetzt wieder fast genau so aus wie das da oben, aber es geht :gruebel:. Das muss diese Compilermagic sein von der immer alle reden ^^

Edit2: Oooookay. Der Code oben von mir tut es doch tatsächlich auch. Ich hab in der letzten Zeit nun auch meinen PC mal neu gestartet, was hier wohl offenbar als die Problemlösung gesehen werden muss. Wenn nix tut, dann boot. Da hätte ich eigentlich drauf kommen müssen. Danke dennoch an alle Leser und den Schreiber :)