Windows Aktivität abfragen

[Sherlock]

Gibt es eine Möglichkeit, von einem Delphi Programm aus, windows zu fragen, ob es Anwenderaktivitäten gegeben hat?
Anders formuliert: Ich bräuchte so etwas ähnliches wie einen Bildschirmschoner, nur halt von meiner normalen Exe aus. Wenn der Anwender für eine Zeitspanne X nichts am Rechner macht, soll meine Anwendung in der Lage sein, das zu "merken".

Sherlock

[Bummi]

Delphi-Quellcode:

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


procedure TForm3.Timer1Timer(Sender: TObject);
begin
    Caption := intToStr(LastInput);
end;

[Sherlock]

Boah!
Super! Funktioniert! Danke!


Sherlock