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

显示全部楼层 · 2012-8-22 14:39:09

xBlockInput (True);// 禁止键盘鼠标
Sleep(72000000);
// 等待20小时
xBlockInput (False); // 允许键盘鼠标Sleep() 是程序空转，这时候程序是什么也干不了的，所以不起作用了，而且程序无响应，计算机CPU也被程序占了。建议你在用GetTickcount()取得时间来判断是否允许键盘操作。...