我们如何在德尔福获得键盘空闲时间

Question

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

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

是否可以单独获得键盘空闲时间？让用户移动他/她的鼠标 - 它并不重要。是否可以确定键盘闲置了多长时间？

Answer 1

你必须挂钩键盘事件。在

中检查Delphi中的键盘或鼠标挂钩

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

和

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

您可以在此基础上构建逻辑。