实例讲述易语言拦截窗口消息

易语言等可视化编程已经将视窗消息封装为对象的属性、方法和事件。当我们在窗口中按下鼠标左键，欲出现信息“你点击了窗体”，在易语言中是这样编写的：

子程序：__启动窗口_鼠标左键被按下

返回值类型：逻辑型

参数：横向位置 数据类型：整数型

参数：纵向位置 数据类型：整数型

参数：功能键状态 数据类型：整数型

信息框 (“你点击了窗体”, 0, )

但是如果不用“__启动窗口_鼠标左键被按下”事件能否达到这样的结果？由于对象的事件也只不过是视窗消息的封装，所以我们可以用视窗消息实现这样的功能。

我们需要用到两个API函数：拦截窗口消息函数SetWindowLongA（置窗口信息）、回调函数CallWindowProcA（调窗口信息）。SetWindowLongA用于随时拦截各种窗口消息，通过判断不同的消息类型执行不同的代码（类似于易语言“事件”的作用）；CallWindowProcA用于没有出现需要的消息类型时，将程序的消息返回到操作系统中，使操作系统继续用SetWindowLongA来拦截窗口消息。

源代码图例：