窗口 – 如何检测非活动用户

前端之家收集整理的这篇文章主要介绍了窗口 – 如何检测非活动用户前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
如何在Windows应用程序中检测不活动(空闲)用户?当用户在某段时间内没有任何输入(键盘,鼠标)时,我想关闭应用程序。

解决方法

为了跟踪用户的空闲时间,您可以钩住键盘和鼠标活动。但是请注意,安装系统范围的消息挂钩是非常有侵入性的事情,如果可能的话应该避免这种情况,因为它需要将钩子DLL加载到所有进程中。

另一个解决方案是使用GetLastInputInfo API函数(如果您的应用程序在Win2000(及以上)机器上运行)。
GetLastInputInfo检索最后输入事件的时间(以毫秒为单位)(当接收到最后检测到的用户活动时,无论是从键盘还是鼠标)。

这是一个简单的例子。 SecondsIdle函数返回一秒钟,没有用户活动(在TTimer组件的OnTimer事件中调用)。

  1. ~~~~~~~~~~~~~~~~~~~~~~~~~
  2. function SecondsIdle: DWord;
  3. var
  4. liInfo: TLastInputInfo;
  5. begin
  6. liInfo.cbSize := SizeOf(TLastInputInfo) ;
  7. GetLastInputInfo(liInfo) ;
  8. Result := (GetTickCount - liInfo.dwTime) DIV 1000;
  9. end;
  10.  
  11. procedure TForm1.Timer1Timer(Sender: TObject) ;
  12. begin
  13. Caption := Format('System IDLE last %d seconds',[SecondsIdle]) ;
  14. end;

http://delphi.about.com/od/adptips2004/a/bltip1104_4.htm

猜你在找的Delphi相关文章