添加时钟组件实现定时效果

.DLL命令 API_SetTimer, 整数型, "user32", "SetTimer", 公开, 安装系统定时器
.参数 hWnd, 整数型, , 窗口句柄
.参数 nIDEvent, 整数型, , 时钟ID
.参数 uElapse, 整数型, , 间隔时间（毫秒）
.参数 lpTimerFunc, 整数型, , 回调函数

.DLL命令 API_KillTimer, 整数型, "user32", "KillTimer", 公开, 中止定时器
.参数 hwnd, 整数型, , 窗口句柄
.参数 nIDEvent, 整数型, , 时钟ID