如何在Delphi中获取键盘空闲时间

Question

以下代码可以获取系统空闲时间。

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

只获取键盘空闲时间是否可能？让用户移动他/她的鼠标-这并不重要。是否有可能确定键盘已经空闲了多久？

- jimsweb

---

创建一个键盘钩子并保持自己的计时器运行。 - Jerry Dodge

键盘钩子听起来像是一个键盘记录器，所以我更喜欢使用其他的替代方案！ - jimsweb

无论用于什么，概念都是相同的。 - Jerry Dodge

操作系统无法提供您所寻找的信息，因此您需要手动钩取键盘。 - Remy Lebeau

也许CallNtPowerInformation()能提供帮助？ - wittrup

Answer 1

你需要挂钩键盘事件。请在Delphi中检查键盘或鼠标挂钩，网址为：

http://delphi.about.com/od/kbwinshell/a/delphi_hook.htm

并且

http://delphi.about.com/od/windowsshellapi/a/delphi-hooks.htm

你可以在这个基础上构建你的逻辑。

- Tejasvi Hegde