如何实现程序运行一段时间后再让它自动关闭?

你使用个计时器 不就完了吗？

晕!~你各个我给你回答!知道我是谁么?哈哈

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Close;//关闭程序
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 5000;//设置5秒,1000是1秒
Timer1.Enabled := true;
end;

来晚拉 用计时器 设置时间到点就关闭就行了

用计时器 设置时间到点就关闭就行了