解决方法
为了跟踪用户的空闲时间，您可以钩住键盘和鼠标活动。但是请注意，安装系统范围的消息挂钩是非常有侵入性的事情，如果可能的话应该避免这种情况，因为它需要将钩子DLL加载到所有进程中。
另一个解决方案是使用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;