QQ空间喊麦歌曲制作软件优化修改版

.子程序 程序_延时, 逻辑型, 公开, 不占用cpu，窗口不卡死，不影响其它代码执行
.参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒 留空为无限等待
.参数 延时单位, 整数型, 可空, 默认为毫秒 0=毫秒 1=秒 2=分钟 3=小时
.局部变量 局_时间句柄, 整数型
.局部变量 局_时间, LARGE_INTEGER

.判断开始 (延时单位 ＝ 0 且 是否为空 (延时间隔) ＝ 真)
延时单位 ＝ 5000 × 60 × 60
.判断 (延时单位 ＝ 0)
延时单位 ＝ 1
.判断 (延时单位 ＝ 1)
延时单位 ＝ 1000
.判断 (延时单位 ＝ 2)
延时单位 ＝ 1000 × 60
.判断 (延时单位 ＝ 3)
延时单位 ＝ 1000 × 60 × 60
.默认

.判断结束
局_时间.lowpart ＝ -10 × 延时间隔 × 1000 × 延时单位
局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)
.判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)
处理事件 ()
.判断循环尾 ()
CloseHandle (局_时间句柄)