如何设置一段代码执行时间？

[sinosk02]

在一个程序里，我想让其中一段功能代码在程序运行1分钟后开始执行，执行时间为5分钟，即5分钟后停止执行，如何实现？

[jonathanscor]

时间控件是首选，不过执行5分钟？代码没执行完怎么办？

[山东蓝鸟贵薪]

Timer1控件
Timer1事件
1楼讲述的很好

[sinosk02]

[Quote=引用 2 楼 的回复:]
时间控件是首选，不过执行5分钟？代码没执行完怎么办？
[/Quote]

各位回答的很好，大概是这个意思，具体执行时间设置还要根据实际情况。

[cdchq]

最简单的是加2个timer控件，名字为Timer1和Timer2
Timer1的Interval属性设置为60000，即1分钟
Timer2的Interval属性设置为300000，即5分钟

再声明一个全局变量bWork:Boolean;

在2个Timer控件的OnTimer事件中分别加入以下代码

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bWork:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  bWork:=False;
end;

然后在你的功能代码里加上

if bWork then
begin
你的代码
end;

或者

while bWork do
begin
你的代码
end;

看你的需要了。