键盘钩子用delphi寻找F12

发布时间：2020-12-15 04:02:12 所属栏目：大数据来源：网络整理

导读：这个问题可能已经得到解答,但我一直无法找到正确的答案.我正试图在表单中按下F12键时切换调试开关.我无法使用onkeydown事件,因为我必须为每个字段和表单设置一个单独的函数.所以我研究并发现了Set WindowsHookEx函数来设置键盘钩子.这个工作得很好,除了我得

这个问题可能已经得到解答,但我一直无法找到正确的答案.我正试图在表单中按下F12键时切换调试开关.我无法使用onkeydown事件,因为我必须为每个字段和表单设置一个单独的函数.所以我研究并发现了Set WindowsHookEx函数来设置键盘钩子.这个工作得很好,除了我得到两个指示F12键每次按下时都按下：

2014/05/21 14:16:43.334
Code: 0
Key: 123
KeyStroke: 5767169
KeyStroke to Hex: 00580001
2014/05/21 14:16:43.446
Code: 0
Key: 123
KeyStroke: -1067974655
KeyStroke to Hex: C0580001  Note: this should be the keystroke that reflects KEYDOWN

我看到Keystroke是一种检查keydown的可能方法(WM_KEYDOWN $0100).我的问题是如何为WM_KEYDOWN测试击键？

这是我的回调函数：

function KeyboardHookProc(Code: Integer; Key: Word; KeyStroke: LongInt) : LongInt;
begin
  Result := 0;
  if Code = HC_NOREMOVE then exit;
  Result := CallNextHookEx(FkbHook,Code,Key,KeyStroke);
  if Code < 0  then exit;

{
WM_KEYDOWN

}
  if (KeyStroke and WM_KEYDOWN) = 0 then { this is where I need to test but this doesn't work! }
  begin
  if Code = HC_ACTION then
  begin
    case Key of
      vk_F12: begin
          TKPMF.Memo1.Lines.Add(FormatDatetime('yyyy/mm/dd hh:nn:ss.zzz',now));
          TKPMF.Memo1.Lines.Add('Code: ' + IntToStr(Code));
          TKPMF.Memo1.Lines.Add('Key: ' + IntToStr(Key));
          TKPMF.Memo1.Lines.Add('KeyStroke: ' + IntToStr(KeyStroke));
          TKPMF.Memo1.Lines.Add('KeyStroke to Hex: ' + LongToHex(KeyStroke));
      end;
    end; {case}

  end;
  end;

end;

解决方法

您不需要为每个单独控件的OnKeyDown事件分配不同的处理程序.您可以指定所有这些使用相同的单个处理程序.如果启用表单的KeyPreview属性,则根本不需要为任何控件分配处理程序,您可以单独使用Form的OnKeyDown事件.如果在打开多个表单时需要检测按键,则可以使用TApplication.OnMessage或TApplicationEvents.OnMessage事件.无论哪种方式,您根本不需要通过SetWindowsHooKEx()使用键盘钩子.

你的钩子不工作的原因是因为WM_KEYDOWN是一个窗口消息,而不是一个Keystroke标志. Read the documentation.您显示的两条消息的击键区别仅在于位30(上一个键状态)和31(过渡状态).

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!