易语言两款创建时钟API源码

.版本 2 .程序集 窗口程序集1 .程序集变量 时钟1, 整数型 .程序集变量 时钟2, 整数型 .子程序 __启动窗口_创建完毕 .子程序 _按钮1_被单击 时钟1 ＝ timeSetEvent (10, 0, &TimerProc, 0, 1) .子程序 _按钮2_被单击 timeKillEvent (时钟1) .子程序 _按钮3_被单击 设置时钟_ (取窗口句柄 (), 0, 1000, &TimerProc) .子程序 _按钮4_被单击 销毁时钟_ (取窗口句柄 (), 0) .子程序 TimerProc .参数 uID, 整数型 .参数 uMsg, 整数型 .参数 dwUser, 整数型 .参数 dw1, 整数型 .参数 dw2, 整数型 编辑框1.内容 ＝ 到文本 (取现行时间 ())