当前位置：文江博客话题详情

如何检测不活跃用户

发布于 2024-08-20 11:03:46 字数 69 浏览 8 评论 0原文

如何检测 Windows 应用程序中的非活动（空闲）用户？当用户在一段时间内没有任何输入（键盘、鼠标）时，我想关闭应用程序。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

薄荷梦 2024-08-27 11:03:46

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

另一个解决方案是使用 < code>GetLastInputInfo API 函数（如果您的应用程序运行在 Win2000（及更高版本）计算机上）。
GetLastInputInfo 检索最后一个输入事件的时间（以毫秒为单位）（当收到最后检测到的用户活动时，无论是来自键盘还是鼠标）。

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

~~~~~~~~~~~~~~~~~~~~~~~~~
function SecondsIdle: DWord;
var
   liInfo: TLastInputInfo;
begin
   liInfo.cbSize := SizeOf(TLastInputInfo) ;
   GetLastInputInfo(liInfo) ;
   Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject) ;
begin
   Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;

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

To track a user's idle time you could hook keyboard and mouse activity. Note, however, that installing a system-wide message hook is a very invasive thing to do and should be avoided if possible, since it will require your hook DLL to be loaded into all processes.

Another solution is to use the GetLastInputInfo API function (if your application is running on Win2000 (and up) machines).
GetLastInputInfo retrieves the time (in milliseconds) of the last input event (when the last detected user activity has been received, be it from keyboard or mouse).

Here's a simple example. The SecondsIdle function returns a number of second with no user activity (called in an OnTimer event of a TTimer component).

~~~~~~~~~~~~~~~~~~~~~~~~~
function SecondsIdle: DWord;
var
   liInfo: TLastInputInfo;
begin
   liInfo.cbSize := SizeOf(TLastInputInfo) ;
   GetLastInputInfo(liInfo) ;
   Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject) ;
begin
   Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;

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

回复收藏 0 原文