请问:如何不操作应用程序一段时间后自动退出? 就像Windows在没有用户操作一定时间后会自动运行屏保一样,我想让应用程序在不接受操作一定时间后自动退出,不知如何实现,烦请各位大侠勇越帮忙,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 还是自己来吧:在程序中放一个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了。 ppReport1.print和ppReport1.printreport打印有什么区别? 用Delphi写DLL,用户要求的函数格式是C的格式,在Delphi中如何定义? COM+ pooling及负载平衡问题 入门级问题 怎么把.DBF格式数据库中的数据转到ACCESS中?一个很菜的问题 delphi运行外部程序并等待外部程序运行完毕,并不是结束 如何播放做到EXE文件中的WAV资源??来者有分 谁来帮我一下啊 我的IE‘自定义级别’一项给一个破网站变灰了,如何使其TRUE? 我很弱,请各位大侠帮忙!!! 把数据连接模块打包成dll如何连接,请各位帮忙. 控制其它程序的输入
在程序中放一个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了。