请问在delphi如何判断程序错误并根据时间重新执行?

发布网友发布时间：2024-09-25 18:04

共1个回答

热心网友时间：2024-09-27 18:32

设置一个TIMER，在声明一个全局变量，在TIMER中定时检查鼠标和键盘是否正在被使用，若否则累加变量，当变量数据达到10000时，则调用相关的处理函数，例子如下：

Timer1.Interval:=1000;//每秒检查一次

var
MCounter:integer; //MCounter累计10次

procedure Timer1Timer(Sender: TObject);
begin
if not (鼠标或键盘是否正在被使用) then
begin
Inc(MCounter);
if MCounter=10 then
begin
MCounter:=0;
相关处理函数；
end;
end;
else
MCounter:=0;
end;

我也是初学者，只会简单的代码，没什么效率，其中若有错误你自己改改吧，呵呵。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com