易语言自定义窗口过程

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

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

.版本 2

.支持库 spec

.子程序 新窗口过程, 整数型

.参数 hwnd, 整数型

.参数 msg, 整数型

.参数 wParam, 整数型

.参数 lParam, 整数型

' 处理代码......

'

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

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

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

.版本 2

.支持库 iext

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

旧窗口过程句柄 ＝ SetWindowLongA (取窗口句柄 (), -4, 到数值 (&新窗口过程))

.如果真 (旧窗口过程句柄 ≤ 0)

调试输出 (“悲催，自定义EXE窗口过程失败”)

.如果真结束

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