SetWindowsHookEx innerhalb der DLL selbst

[hedie]

Hallo zusammen

Ich würde gerne prüfen ob irgendwo eine bestimmte Tastenkombination gedrückt worden ist.

Dazu habe ich versucht innerhalb einer DLL selbst, einen Hook zu setzen.

Hier mein Code:

Delphi-Quellcode:

var
MainHook : HHOOK;
//...

function KeyboardHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
begin
  MessageBox(HWND_DESKTOP,Pchar('Wir sind im Hook!'),'Message',MB_ICONINFORMATION);
end;

//....


MainHook := SetWindowsHookEx(WH_KEYBOARD, KeyboardHook, hinstance, 0);

  if MainHook = 0 then begin
    MessageBox(HWND_DESKTOP,Pchar('Fehlerhafter Hook!'),'Message',MB_ICONINFORMATION);
  end
  else begin
     MessageBox(HWND_DESKTOP,Pchar('Hook erfolgreich!'),'Message',MB_ICONINFORMATION);
  end;

Dieser Code wird automatisch beim Laden der DLL ausgeführt.

Ich bekomme auch die Meldung : Hook erfolgreich
aber leider bekomme ich nie die Meldung: Wir sind im Hook!

Es scheint so, als ob ich keinen echten Hook gesetzt hätte. Woran liegt das?

Danke schonmal

[Sir Rufo]

Geht es um einen KeyboardHook oder um einen Hook in einer DLL?

Für Mouse- und Keyboard-Hook wird keine DLL benötigt ;)

[hedie]

Hallo Rufo

Es geht im grunde um einen KeyboardHook

Aber ich möchte diesen KeyboradHook innerhalb einer DLL setzen.
Damit meine ich, Das erstellen des Hooks soll innerhalb der DLL geschehen
und die bearbeitende Hookfunktion soll sich ebenfalls in dieser DLL befinden...

Also mein Programm ist sozusagen die DLL...

Ich hoffe du verstehst was ich meine :)

[Der schöne Günther]

Ich kann wahrscheinlich nichts konstruktives beitragen, nur anmerken, dass ich die Routine nicht einfach so, sondern deren Adresse an

Delphi-Quellcode:

SetWindowsHookEx

übergeben habe...

Und es waren keine Keyboard-Events, sondern Lowlevel-Keyboard-Events (

Delphi-Quellcode:

WH_KEYBOARD_LL

statt

Delphi-Quellcode:

WH_KEYBOARD

)

[hedie]

Zitat:

Zitat von Der schöne Günther (Beitrag 1208488)

Ich kann wahrscheinlich nichts konstruktives beitragen, nur anmerken, dass ich die Routine nicht einfach so, sondern deren Adresse an

Delphi-Quellcode:

SetWindowsHookEx

übergeben habe...

Und es waren keine Keyboard-Events, sondern Lowlevel-Keyboard-Events (

Delphi-Quellcode:

WH_KEYBOARD_LL

statt

Delphi-Quellcode:

WH_KEYBOARD

)

Jede Antwort ist hilfreicht :)

Das wollte ich auch schon versuchen... Aber dann kommt leider das:

Code:

[DCC Fehler] Project.dpr(42): E2003 Undefinierter Bezeichner: 'WH_KEYBOARD_LL'

[Der schöne Günther]

Das hatte ich auf einem älteren Delphi (6?) auch, der kannte die Konstante einfach noch nicht.

Nimm stattdessen einfach die 13, wie du auf MSDN nachlesen kannst :)

[hedie]

Zitat:

Zitat von Der schöne Günther (Beitrag 1208493)

Das hatte ich auf einem älteren Delphi (6?) auch, der kannte die Konstante einfach noch nicht.

Nimm stattdessen einfach die 13, wie du auf MSDN nachlesen kannst :)

Hab ich nun versucht...

Leider bekomme ich nach einem Tastendruck in der Host-Anwendung immer noch keine Meldung meiner DLL

Delphi-Quellcode:

function KeyboardHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
begin
  MessageBox(HWND_DESKTOP,Pchar('Wir sind im Hook'),'Message',MB_ICONINFORMATION);
end;

//...

MainHook := SetWindowsHookEx(13, KeyboardHook, hinstance, 0);

[zeras]

Zitat:

Zitat von Sir Rufo (Beitrag 1208479)

Geht es um einen KeyboardHook oder um einen Hook in einer DLL?

Für Mouse- und Keyboard-Hook wird keine DLL benötigt ;)

Hast du Beispiele für Mouse und Keyboard Hook ohne DLL? Ich habe zum Test eine DLL gefunden, wo aber keine Service mehr existiert. Wenn ich das direkt in Delphi machen könnte, wäre das super.

[hedie]

Ok nun habe ich news....

Der hook schein doch so halbwegs zu klappen...

Bei mir kommt einmalig die meldung: wir sind im hook.
Direkt nach dem einklinken mit

Delphi-Quellcode:

MainHook := SetWindowsHookEx(13, KeyboardHook, hinstance, 0);

Doch danach kann ich den Hook nicht mehr auslösen...
Die frage ist nur, weshalb.

Hier mein DLL-Code

Delphi-Quellcode:

begin

  MainHook := SetWindowsHookEx(13, KeyboardHook, hinstance, 0);

  if MainHook = 0 then begin
    MessageBox(HWND_DESKTOP,Pchar('Fehlerhafter Hook!'),'Message',MB_ICONINFORMATION);
  end
  else begin
     MessageBox(HWND_DESKTOP,Pchar('Hook erfolgreich!'),'Message',MB_ICONINFORMATION);
  end;

end.

Wird die DLL nach

Delphi-Quellcode:

end.

irgendwie beendet und kann deshalb keine messages vom system mehr empfangen?

[hedie]

Wenn ich die erste Meldung, dass der Hook erfolgreich erstellt wurde, nicht bestätige,

Dann funktionieren die Keyboardhooks.

Sobald ich jedoch ok klicke. Funktioniert es nicht.

Wird die DLL also irgendwie beendet?

Wenn ja, wie kann ich die DLL in einem art IDLE Modus belasse, so dass die Hooks weiterhin funktionieren?
Oder irgendwas wie StayAlive ?