1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| var
HookKeyboardHandle: HHook = 0;
function HookKeyboardProc(Code: Integer; Msg: WPARAM; MouseHook: LPARAM): LRESULT; stdcall;
begin
FrmTestDivers.MemoHook.Text := FrmTestDivers.MemoHook.Text + IntToStr(Msg);
Result := 1; // Transmission du Message
end;
procedure TFrmTestDivers.BtnHookStartClick(Sender: TObject);
begin
HookKeyboardHandle := SetWindowsHookEx(WH_KEYBOARD, HookKeyboardProc, HInstance, 0);
end;
procedure TFrmTestDivers.BtnHookStopClick(Sender: TObject);
begin
if HookKeyboardHandle <> 0 then
UnhookWindowsHookEx(HookKeyboardHandle);
HookKeyboardHandle := 0;
end; |
Partager