易语言API动态创建时钟源码

系统结构:CreateTimer,TimerProc,设置时钟_,销毁时钟_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ CreateTimer
           |  |
           |  |------ TimerProc
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   设置时钟_
           |  |
           |  |---[dll]------   销毁时钟_

调用的DLL命令:

.DLL命令 设置时钟_, 整数型, "user32.dll", "SetTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent
    .参数 时钟周期, 整数型, , uElapse
    .参数 回调函数地址, 子程序指针, , lpTimerFunc

.DLL命令 销毁时钟_, 整数型, "user32.dll", "KillTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent