delphi中应用程式空闲5分钟后就自动关闭或注销为保护状态,怎么做？

[binyuandyliu]

我在设计一个与数据库有关的应用程序，希望应用程序空闲（没有接受任何输入）5分钟后就自动关闭或注销为保护状态，必须再次登陆才能继续工作。怎么办?请各位高手帮忙指点一下,谢谢!

[aistudies]

放一个 timer tiemr.interval=5*60
timer.OnTimer := 屏保处理过程
如果有按键重新复位一下：
timer.enable := false;
timer.enable := true;

[bdmh]

[Quote=引用 1 楼 aistudies 的回复:]
放一个  timer  tiemr.interval=5*60
      timer.OnTimer := 屏保处理过程
如果有按键重新复位一下：
        timer.enable := false;
        timer.enable := true;

[/Quote]
解释一下tiemr.interval=5*60 是多长时间

[sunway0112]

[Quote=引用 1 楼 aistudies 的回复:]
放一个  timer  tiemr.interval=5*60
      timer.OnTimer := 屏保处理过程
如果有按键重新复位一下：
        timer.enable := false;
        timer.enable := true;
[/Quote]
关键是如何判断程序有没有接受输入数据

[Seamour]

放个 timer，隔个几秒检查一下 GetLastInputInfo

[liugaohui]

顶一下，谢谢

[binyuandyliu]

放一个 timer tiemr.interval=5*60
timer.OnTimer := 屏保处理过程
如果有按键重新复位一下：
timer.enable := false;
timer.enable := true;
这只能对当前窗体有效，如果应用程序打开了多个窗体的时候上述方法就不行了.

[aistudies]

呵呵 --- tiemr.interval=5*60 *1000


-----------------------------------------------------------------
这只能对当前窗体有效，如果应用程序打开了多个窗体的时候上述方法就不行了.

关键在于你的应用程序是如何捕获键盘消息的

[aistudies]

比如你可以写一个 基类 让所有的窗口都继承该类


该基类的 keydown事件处理，，，，，，

[haitao]

onkeydown或onmousemove。。。。。。。