delphi自動關閉程序

Question

一個程序沒有任何動作后,怎樣自動關閉!

Answer 1

首先确定什么属于没有动作，使用一个timer判断达到一定时间没有该动作消息就close

Answer 2

那你就写个函数判断adoconnection的stateif adocnnection.state = stclosed then
begin
 close;
end;

Answer 3

procedure appidle(Sender: TObject; var Done: Boolean);
begin
  //处理,置空闲标志,当空闲时间过大,程序结束
end;
procedure appevent(Sender: QObjectH; Event: QEventH; var Handled: Boolean)
begin
  //有事发生,清除标志
end;
//application.run;之前
application.OnIdle=appidle;//触发该事件说明程序空闲
application.OnEvent=appevent;//有事件时触发