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:

zusammenfalten · markieren

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

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

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

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

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

Und es waren keine Keyboard-Events, sondern Lowlevel-Keyboard-Events (WH_KEYBOARD_LL statt WH_KEYBOARD )

Zitat von Der schöne Günther:

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

Und es waren keine Keyboard-Events, sondern Lowlevel-Keyboard-Events (WH_KEYBOARD_LL statt WH_KEYBOARD )

Jede Antwort ist hilfreicht

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

markieren

Code:

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

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

Zitat von 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

Hab ich nun versucht...

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

markieren

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

Zitat von 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

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.

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

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

zusammenfalten · markieren

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 end. irgendwie beendet und kann deshalb keine messages vom system mehr empfangen?

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 ?