1,184
社区成员
发帖
与我相关
我的任务
分享请问：如何不操作应用程序一段时间后自动退出？
就像Windows在没有用户操作一定时间后会自动运行屏保一样，我想让应用程序在不接受操作一定时间后自动退出，不知如何实现，烦请各位大侠勇越帮忙，谢谢！
...全文
请发表友善的回复…
发表回复
menggirl 2004-03-31
- 打赏
- 举报
我要分分
menggirl 2004-03-31
- 打赏
- 举报
upupupupupupup
ekin 2004-03-31
- 打赏
- 举报
:_)
BigBoyDJ 2004-03-31
- 打赏
- 举报
呵呵，有人理了，有分同分。
nyf1220 2004-03-31
- 打赏
- 举报
呵呵，晕呀，你知道了，考我们呢？
BigBoyDJ 2004-03-31
- 打赏
- 举报
还是自己来吧：
在程序中放一个TApplicationEvents控件，一个TTimer控件(Name为tmSysRun)，在OnMessage事件中加入：
if (msg.message = wm_keydown) or (msg.message = wm_mousemove) or (msg.message = WM_LBUTTONDOWN) then tmSysRun.Enabled := false;
在TApplicationEvents的OnIdle事件中加入：
tmSysRun.Enabled := true;
在TTimer控件的OnTimer事件中加入：
Close;
设置好TTimer控件的Interval时间，OK了。
在程序中放一个TApplicationEvents控件，一个TTimer控件(Name为tmSysRun)，在OnMessage事件中加入：
if (msg.message = wm_keydown) or (msg.message = wm_mousemove) or (msg.message = WM_LBUTTONDOWN) then tmSysRun.Enabled := false;
在TApplicationEvents的OnIdle事件中加入：
tmSysRun.Enabled := true;
在TTimer控件的OnTimer事件中加入：
Close;
设置好TTimer控件的Interval时间，OK了。
