DELPHI问题，懂的进

来源：百度知道 编辑：UC知道 时间：2024/06/04 01:23:05
我写了段DELPHI的程序，我想在程序里加个什么，可以让本程序自动的多次运行？
比如说，我写了个 程序，作用是清空回收站，我可以在里面添加什么，让他隔5秒就清空一次，也就是运行一次呢？？？

在线等啊！急！！！

添加时间控件:timer1
,edit1,label1,
Button1,Button2

var
s,c:integer;//s为间隔秒数,c为执行次数
...

procedure TForm1.Timer1Timer(Sender: TObject);
begin

s:=s-1;
if s=0 then
begin
c:=c+1;
Label1.Caption:='已执行次数:'+inttostr(c);//显示执行次数
s:=strtoint(Edit1.Text);//Edit1.Text设定的间隔秒数
end;

end;

procedure TForm1.Button1Click(Sender: TObject);//开始执行
begin
Timer1.Enabled:=true;
s:=strtoint(Edit1.Text);//如:Edit1.Text填写5(秒)
end;

procedure TForm1.Button2Click(Sender: TObject);//停止执行
begin
Timer1.Enabled:=false;
end;

可以直接调用bat文件 呵呵 一个思路

关注中！

可以用 timer 控件

可以使用Timer控件：

Timer的Enabled属性为开启关闭Timer，当Enabled:=True时开启；Enabled:=False时关闭。
Timer的Interval属性为2事件发生的间隔，单位为毫秒。

Timer的OnTimer事件即可写你所想实现操作的代码。