窗口队列消息例子

帅气与大侠

前面问答区看到一个提问：
普通窗口怎么判断标题栏左键按下和弹起_精易论坛
易窗口消息中是无法拦截到非客户区的左键放开消息的，按下左键时窗口就触发了移动，包括窗口的很多信息实际上都做了相关处理和删除了

要检测到所有的窗口动作，得从系统转发给进程的队列消息入手
窗口消息也是从队列消息里获取的，下面是拦截队列消息的小例子，可以在消息到达窗口之前得到，就不会丢失消息了

源码下载： 队列消息.e (12.12 KB, 下载次数: 30)

2025-3-20 23:39 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
m_WndMouse	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

m_WndMouse ＝ SetWindowsHookExA ( #WH_GETMESSAGE, &WNDMOUSE, GetModuleHandleA (字符 (0)), GetCurrentThreadId ())

子程序名	返回值类型	公开	备 注
WNDMOUSE	整数型
参数名	类 型	参考	可空	数组	备 注
nCode	整数型				小于零时直接调用CallNextHookEx返回。
wParam	整数型				0=消息还未从队列删除；1=消息已经从队列删除；2=其它特殊队列消息（如弹出菜单，窗口默认不处理的消息等）
lParam	整数型				指向tagMSG消息结构，该结构大小32字节

变量名	类 型	静态	数组	备 注
msg	tagMSG
LBDown	逻辑型
RBDown	逻辑型
MBDown	逻辑型

如果真 (nCode ＞ -1)
GetMsg (lParam, msg)
' 非客户区，如标题栏、边框等鼠标消息
判断 (msg.message ＝ 160)  ' 鼠标移动
' msg.wParam参数是鼠标在窗口的非客户区具体区域：
' 2=标题栏；3=图标；8=最小化；9=最大化；18=边框；20=关闭；
调试输出 (msg.wParam)
判断 (msg.message ＝ 161)  ' 鼠标左键
调试输出 (“鼠标左键按下”)
LBDown ＝ 真
判断 (msg.message ＝ 160 且 LBDown ＝ 真 或 msg.message ＝ 514 且 LBDown ＝ 真)
LBDown ＝ 假
调试输出 (“鼠标左键放开”)
判断 (msg.message ＝ 164)  ' 鼠标右键
调试输出 (“鼠标右键按下”)
RBDown ＝ 真
判断 (msg.message ＝ 517 且 RBDown ＝ 真 或 msg.message ＝ 165 且 RBDown ＝ 真)
RBDown ＝ 假
调试输出 (“鼠标右键放开”)
判断 (msg.message ＝ 167)  ' 鼠标中键
MBDown ＝ 真
调试输出 (“鼠标中键按下”)
判断 (msg.message ＝ 168 或 msg.message ＝ 520 且 MBDown ＝ 真)
MBDown ＝ 假
调试输出 (“鼠标中键放开”)
判断 (msg.message ＝ 171)  ' 侧键按下
判断 (GetH16 (msg.wParam) ＝ 1)  ' 侧键下
调试输出 (“鼠标侧键下 按下”)
调试输出 (“鼠标侧键上 按下”)

判断 (msg.message ＝ 172)  ' 侧键放开
判断 (GetH16 (msg.wParam) ＝ 1)  ' 侧键下
调试输出 (“鼠标侧键下 放开”)
调试输出 (“鼠标侧键上 放开”)




' 其它消息自行捕捉
' 如窗口激活、焦点、重画、按下某键、转发给窗口组件的消息等等均可以捕获
' 调试输出 (msg.message)

返回 (CallNextHookEx (m_WndMouse, nCode, wParam, lParam))
' *** 缩略程序块 ***

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 m_WndMouse, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> m_WndMouse ＝ SetWindowsHookExA (#WH_GETMESSAGE, &WNDMOUSE, GetModuleHandleA (字符 (0)), GetCurrentThreadId ())<br /> <br /> <br /> .子程序 WNDMOUSE, 整数型<br /> .参数 nCode, 整数型, , 小于零时直接调用CallNextHookEx返回。<br /> .参数 wParam, 整数型, , 0=消息还未从队列删除；1=消息已经从队列删除；2=其它特殊队列消息（如弹出菜单，窗口默认不处理的消息等）<br /> .参数 lParam, 整数型, , 指向tagMSG消息结构，该结构大小32字节<br /> .局部变量 msg, tagMSG<br /> .局部变量 LBDown, 逻辑型, 静态<br /> .局部变量 RBDown, 逻辑型, 静态<br /> .局部变量 MBDown, 逻辑型, 静态<br /> <br /> .如果真 (nCode ＞ -1)<br />     GetMsg (lParam, msg)<br />     ' 非客户区，如标题栏、边框等鼠标消息<br />     .判断开始 (msg.message ＝ 160)  ' 鼠标移动<br />         ' msg.wParam参数是鼠标在窗口的非客户区具体区域：<br />         ' 2=标题栏；3=图标；8=最小化；9=最大化；18=边框；20=关闭；<br />         调试输出 (msg.wParam)<br />     .判断 (msg.message ＝ 161)  ' 鼠标左键<br />         调试输出 (“鼠标左键按下”)<br />         LBDown ＝ 真<br />     .判断 (msg.message ＝ 160 且 LBDown ＝ 真 或 msg.message ＝ 514 且 LBDown ＝ 真)<br />         LBDown ＝ 假<br />         调试输出 (“鼠标左键放开”)<br />     .判断 (msg.message ＝ 164)  ' 鼠标右键<br />         调试输出 (“鼠标右键按下”)<br />         RBDown ＝ 真<br />     .判断 (msg.message ＝ 517 且 RBDown ＝ 真 或 msg.message ＝ 165 且 RBDown ＝ 真)<br />         RBDown ＝ 假<br />         调试输出 (“鼠标右键放开”)<br />     .判断 (msg.message ＝ 167)  ' 鼠标中键<br />         MBDown ＝ 真<br />         调试输出 (“鼠标中键按下”)<br />     .判断 (msg.message ＝ 168 或 msg.message ＝ 520 且 MBDown ＝ 真)<br />         MBDown ＝ 假<br />         调试输出 (“鼠标中键放开”)<br /> <br />     .判断 (msg.message ＝ 171)  ' 侧键按下<br />         .判断开始 (GetH16 (msg.wParam) ＝ 1)  ' 侧键下<br />             调试输出 (“鼠标侧键下 按下”)<br />         .默认<br />             调试输出 (“鼠标侧键上 按下”)<br />         .判断结束<br /> <br />     .判断 (msg.message ＝ 172)  ' 侧键放开<br />         .判断开始 (GetH16 (msg.wParam) ＝ 1)  ' 侧键下<br />             调试输出 (“鼠标侧键下 放开”)<br />         .默认<br />             调试输出 (“鼠标侧键上 放开”)<br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br />     ' 其它消息自行捕捉<br />     ' 如窗口激活、焦点、重画、按下某键、转发给窗口组件的消息等等均可以捕获<br />     ' 调试输出 (msg.message)<br /> .如果真结束<br /> <br /> 返回 (CallNextHookEx (m_WndMouse, nCode, wParam, lParam))<br /> ' *** 缩略程序块 ***

zifeiyu

66666666666666666666666666

q278330360

6666666666666666666666666666666

bh8cxf

感谢分享，支持开源！！！

qqmqqg

6666666666666666

please

感谢分享，支持开源！！！

闽字科技

怎么做的

cqcc

感谢分享

lassgo

这不就巧了嘛，我前两天也遇到这问题，琢磨半天才搞定。楼主可以试试在按下时标记个状态，弹起时检查这个状态来判断是不是标题栏左键操作呢。哈，希望有点帮助啊。

please

感谢分享，支持开源！！！