Och Mann, warum fragt ihr nach dieser Funktion alle zwei Monat. Das ist genau die Zeitspanne, die ich brauche, um sie wieder zu vergessen.
Wenn es nur ab Windows 2000 funktionieren muss:
GetLastInputInfo.
Delphi-Quellcode:
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;
Im Label wird angezeigt, wie viele Sekunden das System sich im Idle-Zustand befindet.