Как Определить Время Простаивания Системы?

[Sascha]

Как определить время простаивания системы?

function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
   LInput.cbSize := SizeOf( TLastInputInfo );
   GetLastInputInfo( LInput );
   Result := GetTickCount - LInput.dwTime;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := Format( 'Система простаивает %d ms', [LastInput] );
end;