关于获取系统空闲时间的问题（高手请进）

Question

也就是在键盘和鼠标都没有操作的情况下，如何获取空闲的时间。

Answer 1

放个 ApplicationEvents 控件OnIdle事件就是了。

Answer 2

好像有一个API就可以实现，能前用过，不过忘了，不好意思

Answer 3

哦，如果你要的是系统有多长时间没动过鼠标键盘了，那就function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := Format('鼠标键盘已经有 %d 秒没有使用', [(LastInput)div 1000]);
end;

Answer 4

太棒了！感谢楼上的“miky”朋友。分全给你 :-)