易语言自定义窗口过程

为了处理自定义的窗口消息，因此我们必须要重载下窗口消息过程处理函数。

首先是定义我们的窗口过程,4个参数都是int，返回值是int：

.版本 2
.支持库 spec

.子程序 新窗口过程, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

' 处理代码......

'

返回 (CallWindowProcA (旧窗口过程句柄, hwnd, msg, wParam, lParam))

-------------------------------------------------------------------------------------------------------------

然后在程序启动时，让程序走我们的新窗口过程：

.版本 2
.支持库 iext

.子程序 __启动窗口_创建完毕

旧窗口过程句柄 ＝ SetWindowLongA (取窗口句柄 (), -4, 到数值 (&新窗口过程))
.如果真 (旧窗口过程句柄 ≤ 0)
    调试输出 (“悲催，自定义EXE窗口过程失败”)
.如果真结束

 ----------------------------------------------------------