我应该在OnIdle处理程序或计时器中定期检查吗？

Question

我想在一段时间不活动后将用户从我的应用程序中注销.

在applciation的OnIdle处理程序或计时器处理程序中检查是否不活动会更好吗？

粒度不是太重要.注销可以加/减几秒,甚至一分钟.

我觉得应用程序的OnIdle会经常被解雇.有什么建议？代码迭代只有几行.

Answer 1

您正在使用GetLastInputInfo来测量空闲时间.这似乎非常明智.所以问题归结为

我应该在OnIdle处理程序或计时器中定期检查吗？

每次清空消息队列时都会触发OnIdle.如果队列中没有放置任何消息,OnIdle将永远不会触发.因此,OnIdle不是周期性的.如果您想要定期检查不活动,那么OnIdle可能无法正常工作.计时器肯定会起作用.

您可以这样想:空闲计数器启动时会触发OnIdle事件,但是当空闲计数器到期时您需要触发事件.

我觉得应用程序的OnIdle会经常被解雇.

事实上你的问题与此相反!

请注意,您可以尝试使用此功能,并发现OnIdle似乎可以正常工作,并定期触发.例如,如果您的应用使用任何计时器,则OnIdle将在每个计时器事件后触发.因为计时器事件在队列中进入,一旦处理完毕,就会触发OnIdle.但是如果你的应用程序没有计时器,那么如果你停止与你的程序交互,你可以期待OnIdle根本不会被激活.

Answer 2

我个人使用以下内容.

GetLastInputInfo来自Windows并提供一个结果,告诉我们没有键盘或鼠标活动的时间.

TimerLogoffTimer是一个设置为每5秒触发一次的定时器

TimeoutValue是我从配置中读取的值

DoLogoff是执行关闭表单等实际工作的过程.

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

procedure TfrmMain.TimerLogoffTimer(Sender: TObject);
begin
  if SecondsIdle >= DWord(TimeoutValue) then
    DoLogoff;
end;