title image


Smiley Lösung
var KbHook: HHOOK = 0;function KeyboardProc(Code: Integer; VKey: WPARAM; KInf: LPARAM): LRESULT; stdcall;begin if (Code = HC_ACTION) and (VKey = VK_SNAPSHOT) and (KInf then MessageBox(0, 'Taste wurde gedrückt.', 'SnapTrap', MB_ICONINFORMATION); Result := CallNextHookEx(KbHook, Code, VKey, KInf);end;procedure TForm1.Button1Click(Sender: TObject);begin if KbHook = 0 then begin KbHook := SetWindowsHookEx(WH_KEYBOARD, KeyboardProc, HInstance, GetCurrentThreadId); if KbHook = 0 then MessageBox(0, 'Hook nicht installiert!', 'Snap Trap', MB_ICONERROR); end;end;procedure TForm1.Button2Click(Sender: TObject);begin if KbHook 0 then if UnhookWindowsHookEx(KbHook) then KbHook := 0;end;gruss nico(KInf

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: