3

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

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

是否可以单独获得键盘空闲时间?让用户移动他/她的鼠标——没关系。是否可以确定键盘空闲了多长时间?

4

1 回答 1

1

你必须挂钩到键盘事件。在 Delphi 中检查键盘或鼠标挂钩

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

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

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

于 2014-02-17T13:14:02.573 回答