实现鼠标钩子遇到的一个问题

在网上找了鼠标钩子的部分代码,做成一个dll实现全局钩子,结果调试发现如何都不能勾住除设置钩子窗口以外的鼠标消息

遍查资料,百思不得其解。

 

g_hInstalledLLKBDhook = SetWindowsHookEx(WH_MOUSE, (HOOKPROC)LLMouseHookCallbackFunction, g_hInstance, 0);

 

 

后来发现:Microsoft SDK/include/WinUser.h中这样定义

 

#if (_WIN32_WINNT >= 0x0400)
#define WH_KEYBOARD_LL     13
#define WH_MOUSE_LL        14
#endif // (_WIN32_WINNT >= 0x0400)

 

而我当时为了使用MSLLHOOKSTRUCT这个结构在StdAfx.h中做了如下定义

#define _WIN32_WINNT 0x0400

 

MSLLHOOKSTRUCT *mouse_Info = (MSLLHOOKSTRUCT*)lParam;

 

修改WH_MOUSE为WH_MOUSE_LL问题解决

 

 

 

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi是一种高级编程语言,它可以通过鼠标钩子来获取和拦截鼠标的事件。鼠标钩子通常被用于跟踪用户的操作,监视用户的行为,或者在游戏中处理鼠标动作。 一般而言,我们可以使用Windows API 来完成鼠标钩子的功能,源码如下: procedure TForm1.FormCreate(Sender: TObject); begin // 安装鼠标钩子 HookMouse; end; procedure TForm1.HookMouse; begin // 获取当前进程的句柄 hCurInst := GetModuleHandle(nil); // 安装鼠标钩子 hHook := SetWindowsHookEx(WH_MOUSE_LL, @MouseHookProc, hCurInst, 0); end; procedure TForm1.UnhookMouse; begin // 卸载鼠标钩子 UnhookWindowsHookEx(hHook); end; function TForm1.MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var HookInfo: PMouseHookStruct; begin if (nCode >= 0) and (wParam = WM_MOUSEMOVE) then begin HookInfo := PMouseHookStruct(lParam); // 处理鼠标事件 end; Result := CallNextHookEx(hHook, nCode, wParam, lParam); end; 在代码中,我们使用了SetWindowsHookEx函数来安装鼠标钩子,然后再使用UnhookWindowsHookEx函数来卸载鼠标钩子。在鼠标线程的处理中,我们使用了MouseHookProc函数来处理鼠标事件,它会根据鼠标的动作来执行相应的操作。 总而言之,鼠标钩子是一种很有用的技术,可以被广泛应用于各种领域,无论是用于增强程序的功能,还是用于跟踪和监视用户的操作行为。如果您对此感兴趣的话,可以查看更多相关的资料和代码示例。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值