.版本 2 .子程序 系统_延时_Ex, , 公开, 不占cpu，不卡窗口，不影响其它代码执行 .参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒 留空为无限等待 .参数 延时单位, 整数型, 可空, 默认为毫秒 0=毫秒 1=秒 2=分钟 3=小时 .局部变量 时间句柄, 整数型 .局部变量 时间, 程序延时 .判断开始 (是否为空 (延时间隔)) 延时单位 ＝ 5000 × 60 × 60 .判断 (是否为空 (延时单位)) 延时单位 ＝ 1 .判断 (延时单位 ＝ 1) 延时单位 ＝ 1000 .判断 (延时单位 ＝ 2) 延时单位 ＝ 1000 × 60 .判断 (延时单位 ＝ 3) 延时单位 ＝ 1000 × 60 × 60 .默认 .判断结束 时间.成员_时间 ＝ -10 × 延时间隔 × 1000 × 延时单位 时间句柄 ＝ CreateWaitableTimerA (0, 假, 0) SetWaitableTimer (时间句柄, 时间, 0, 0, 0, 假) .判断循环首 (MsgWaitForMultipleObjects (1, 时间句柄, 假, -1, 255) ≠ 0) 处理事件 () .判断循环尾 () _关闭对象 (时间句柄)