易语言类的窗口回调源码

系统结构:WinMsgProc,SetWindowProc,UnSet,GetThis,取_类_函数地址,取指针内容_整数,取变量地址_整数,取变量地址_字节集,SetWindowLong,GetWindowLong,CallWindowProc,IsWindow,

======Cls_ForProc
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ WinMsgProc
           |  |
           |  |------ SetWindowProc
           |  |
           |  |------ UnSet
           |  |
           |  |------ GetThis
           |  |
           |  |
======help
           |  |
           |  |------ 取_类_函数地址
           |  |
           |  |------ 取指针内容_整数
           |  |
           |  |------ 取变量地址_整数
           |  |
           |  |------ 取变量地址_字节集
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   IsWindow

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
    .参数 hWnd
    .参数 index
    .参数 New

.DLL命令 GetWindowLong, 整数型, , "GetWindowLongA"
    .参数 hWnd
    .参数 index

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 proc
    .参数 hWnd
    .参数 msg
    .参数 dw1
    .参数 dw2

.DLL命令 IsWindow, 逻辑型, , "IsWindow"
    .参数 hWnd