【Delphi】Windows系统下的键盘钩子

最新推荐文章于 2024-04-03 14:23:01 发布

yeapT

最新推荐文章于 2024-04-03 14:23:01 发布

阅读量1.7k

点赞数

分类专栏： Delphi 文章标签： delphi windows

本文链接：https://blog.csdn.net/weixin_43487532/article/details/121667348

版权

Delphi 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

这篇博客介绍了如何通过设置Windows键盘钩子（WH_KEYBOARD）来捕获并处理得力扫码枪模拟的键盘输入。作者详细阐述了键盘钩子回调函数KeyHook的实现，包括在接收到回车键时显示输入内容，并在特定字符组合出现时执行特定功能。文章还展示了代码示例，解释了因key_up和key_down导致的输入重复问题，并给出了理想与非理想效果的对比。

摘要由CSDN通过智能技术生成

目的：为了实现得力牌扫码枪的输入，并执行特定功能。
场景描述：此款扫码枪模拟键盘信号，并支持以回车、换行等结尾，这里采用回车结尾进行开发。

思路：使用Windows的钩子回调函数，这里模拟键盘信号所以用WH_KEYBOARD设置键盘钩子，再用键盘钩子回调函数KeyHook来进行具体的定制功能开发。

设置键盘钩子
[SetWindowsHookEx——API文档]https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setwindowshookexa

hook: HHOOK; { 定义一个钩子句柄 }
hook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, 0, GetCurrentThreadID);

键盘钩子回调主体（加上stdcall可以不定义直接使用）
[KeyboardProc——API文档]https://docs.microsoft.com/en-us/windows/win32/winmsg/keyboardproc

function KeyHook(nCode: Integer; wParam: wParam; lParam: lParam)
  : LRESULT; stdcall;
  begin
      //尽情写代码
      Result := CallNextHookEx(hook, nCode, wParam, lParam);
  end;

释放键盘钩子

UnhookWindowsHookEx(hook);

回调函数核心代码

function KeyHook(nCode: Integer; wParam: wParam; lParam: lParam)
  : LRESULT; stdcall;
const
  _KeyUp = $80000000; // 键盘弹起
  _KeyDown = $00000000; // 键盘按下
begin
  // ShowMessage('进入钩子nCode:' + IntToStr(nCode));
  if nCode < 0 then
  begin
    Result := CallNextHookEx(hook, nCode, wParam, lParam);
    exit;
  end
  // HC_ACTION表示钩子中有消息
  else if nCode = HC_ACTION then
  begin
    if (lParam and _KeyUp) = _KeyUp then
    begin
      ShowMessage('键盘弹起');
    end
//    else if (lParam and _KeyDown) = _KeyDown then
//    begin
//      ShowMessage('键盘按下');
//    end
    else if (wParam >= $30) and (wParam <= $39) then // 数字
    begin
      yydsQrParms := yydsQrParms + IntToStr(wParam - $30);
    end
    else if (wParam >= $41) and (wParam <= $5A) then // 字母全部转为小写
    begin
      yydsQrParms := yydsQrParms + Char(wParam + 32);
    end
    else if (wParam = VK_OEM_5) then // VK_OEM_5表示'|'
    begin
      if yydsQrParms = 'yyds' then
      begin
        yydsQrParms := yydsQrParms + '|';
      end
      else
      begin
        ShowMessage('清空前打印：' + yydsQrParms);
        yydsQrParms := '';
      end;
    end
    else if (wParam = VK_RETURN) then // 回车键
    begin
      MessageBox(0, PChar('最终结果：' + yydsQrParms), '', MB_OK);
      yydsQrParms := '';
    end;
  end;
  Result := CallNextHookEx(hook, nCode, wParam, lParam);
end;