delphi7 计时问题,定时休息和工作。输入工作时间和休息时间后,按‘开始’不起作用,请名家指点,多谢!

2025-05-13 09:43:30
推荐回答(1个)
回答(1):

xBlockInput (True); // 禁止键盘鼠标
Sleep(72000000); // 等待20小时
xBlockInput (False); // 允许键盘鼠标

Sleep() 是程序空转,这时候程序是什么也干不了的,所以不起作用了,而且程序无响应,计算机CPU也被程序占了。

建议你在用GetTickcount()取得时间来判断是否允许键盘操作。