窗口队列消息例子 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
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 />
' *** 缩略程序块 ***