windows - Delphiでキーボードのアイドル時間を取得するにはどうすればよいですか

Question

次のコードは、システムのアイドル時間を取得できます。

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

キーボードのアイドル時間だけを取得することは可能ですか? ユーザーがマウスを動かせるようにします。それは問題ではありません。キーボードがアイドル状態だった時間を特定することはできますか?