Delphi程序自动退出

我有一个Delphi+SQL的程序，运行后我希望能做检测用户有没有在操作？
如果一段时间没有操作这个程序就自动退出。
目前想的是放一个计时器，设置一个时间，到了就关闭程序。
现在不知道如何判断操作员有没有操作动作？
哪位教一下，多谢！

---

判断鼠标或是键盘长时间没有操作，就象屏保一样

---

用一个TIMER设一个时间，到了时间就退出
当有鼠标或者键盘操作时，TIMER重新计时就行了

---

这是一个方法，还有没有更直接的
如果在操作计算机，没有在程序里有动作的情况。

---

引用

完整代码：
Delphi(Pascal) codefunction StopTime: integer;//返回没有键盘和鼠标事件的时间var
  LInput: TLastInputInfo;begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := (GetTickCount()- LInput.dwTime)div1000;// 微妙换成秒end;procedure TForm1.Timer1Timer(Sender: TObject);// Timer 事件beginif StopTime>=60then
  Showmessage('用户已经1分钟没有动键盘鼠标了！');end;

只要用户动了鼠标或键盘，计数就会重新开始，GetLastInputInfo是核心

这个好，谢谢，收下了。

---

引用

完整代码：
Delphi(Pascal) codefunction StopTime: integer;//返回没有键盘和鼠标事件的时间var
  LInput: TLastInputInfo;begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := (GetTickCount()- LInput.dwTime)div100