Время бездействия системы

[Kamikadze_666]

Всем доброго времени суток.

Как реализовать в Делфи время бездействия системы? Т.е. если мышь не активна и клавиатура не активна, то запускаем таймер. В самом таймере уже будет идти отсчет времени бездействия(ну это я знаю как сделать). А вот как записать - "мышь не активна" и "клавиатура не активна"?

[Kotofff]

Опять же Delphi World :

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


 //Использование :
procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   Label1.Caption := Format('System Idle since %d ms', [LastInput]);
 end;

Оригинал :
http://delphi.about.com/od/adptips20...ltip1104_4.htm