偶看新闻雅尼回忆录紫禁城:拦截窗口消息的示例
来源：百度文库 编辑：偶看新闻 时间：2024/04/27 18:10:45
易语言等可视化编程已经将视窗消息封装为对象的属性、方法和事件。
当我们在窗口中按下鼠标左键，欲出现信息“你点击了窗体”，在易语言中是这样编写的：
子程序：__启动窗口_鼠标左键被按下返回值类型：逻辑型
参数：横向位置 数据类型：整数型
参数：纵向位置 数据类型：整数型
参数：功能键状态 数据类型：整数型
信息框 (“你点击了窗体”, 0, )
但是如果不用“__启动窗口_鼠标左键被按下”事件能否达到这样的结果？由于对象的事件也只不过是视窗消息的封装，所以我们可以用视窗消息实现这样的功能。
我们需要用到两个API函数：拦截窗口消息函数SetWindowLongA（置窗口信息）、回调函数CallWindowProcA（调窗口信息）。SetWindowLongA用于随时拦截各种窗口消息，通过判断不同的消息类型执行不同的代码（类似于易语言“事件”的作用）；CallWindowProcA用于没有出现需要的消息类型时，将程序的消息返回到操作系统中，使操作系统继续用SetWindowLongA来拦截窗口消息。
请看下面的示例代码：
Dll命令：置窗口信息返回值类型：整数型
Dll库文件名：user32.dll
在Dll库中的命令名：SetWindowLongA
参数：窗口句柄 数据类型：整数型
参数：取回信息 数据类型：整数型
参数：信息新值 数据类型：子程序指针
Dll命令：调窗口信息返回值类型：整数型
Dll库文件名：user32.dll
在Dll库中的命令名：CallWindowProcA
参数：过程指针 数据类型：整数型
参数：过程句柄 数据类型：整数型
参数：消息类型 数据类型：整数型
参数：特定信息1 数据类型：整数型
参数：特定信息2 数据类型：整数型
常量：窗信_系统命令 值：274 备注：WM_SYSCOMMAND
常量：窗信_鼠标按下 值：513 备注：WM_LBUTTONDOWN
窗口程序集：窗口程序集1
程序集容器：指针 数据类型：子程序指针
程序集容器：旧窗口信息 数据类型：整数型
程序集容器：旧句柄信息 数据类型：整数型
子程序：__启动窗口_创建完毕
指针 ＝ &回调信息
旧窗口信息 ＝ 置窗口信息 (取窗口句柄 (), -4, 指针)
子程序：回调信息返回值类型：整数型备注：回调列表框
参数：窗口句柄 数据类型：整数型
参数：信息类型 数据类型：整数型
参数：值1 数据类型：整数型
参数：值2 数据类型：整数型
判断 (信息类型 ＝ #窗信_鼠标按下)
信息框 (“你点击了窗体”, 0, )
判断 (信息类型 ＝ #窗信_系统命令)
如果 (值1 ＝ 61536)
信息框 (“你点击了关闭按钮”, 0, )
否则 如果 (值1 ＝ 61488)
信息框 (“你点击了最大化按钮”, 0, )
否则
如果 (值1 ＝ 61472)
信息框 (“你点击了最小化按钮”, 0, )
否则
如果结束
如果结束
如果结束
返回 (调窗口信息 (旧窗口信息, 窗口句柄, 信息类型, 值1, 值2))
判断结束
返回 (0)
子程序：_按钮1_被单击
结束 ()