title image


Smiley Re: Brauche dringend ein Keyhook ? (bitte lesen..)


library DtgHook;



uses

windows, messages;



function KbdHookProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;

begin

Result := CallNextHookEx(0, code, wParam, lparam);

if code >= 0 then // Messge weiter an Hauptanwendung senden

SendMessage(FindWindow('TMeinFormular', 'Message-Empfänger'), WM_USER + WH_KEYBOARD, wParam, lParam);

end;



exports

KbdHookProc;



begin



end.





.

Die Hautpanwendung installiert Hook mit







procedure TMeinFormular.InitHook;

begin

DllInstance := LoadLibrary('DtgHook.dll');

if DllInstance <> 0 then

begin

KbdHook := SetWindowsHookEx(WH_KEYBOARD, GetProcAddress(DllInstance, 'KbdHookProc'), DllInstance, 0);

end else

KbdHook := 0

end;







... und reagiert auf Tastendruck mit



private

procedure WMKbdHookCommand(var Message: TMessage); message WM_USER + WH_KEYBOARD;







Mehr Info in Online-Hilfe für SetWindowsHookEx und WH_KEYBOARD



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: