Wie lange keine Benutzereingaben mehr erfolgt sind(user afk)

[MR321]

Hallo,
brauche eine Funktion die ausliest wie lange keine Benutzereingaben (Tastatus, Maus) mehr erfolgt sind.
Oder etwas wie, nach 5 Minuten Inaktivität führe Funktion xy aus.

Habe mir überlegt, dass Windows den Wert irgendwo speichern wird. Denn Windows aktiviert doch schließlich auch den Bildschirmschoner oder irgendwelche Energiesparoptionen wie Monitor aus.
Die Frage ist wie komme ich an den Wert?

Es muss doch eine Lösung geben ohne den ganzen Kram selbst zu machen und Maus- und Tastaturhooks zu installieren.

[Luckie]

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.

[MR321]

Danke dir!
Hatte die Code-Library danach durchsucht. Und irgendwelche Suchenfunktionen konnte ich nicht verwenden, da mir keine passenden Suchbegriffe eingefallen sind.

[Privateer3000]

Hallo allerseits,

wenn ich untenstehenden Tipp verwenden will
startet die Anwendung mit einer Zugriffsverletzung.
Delphi selber startet die Anwendung einwandfrei (F9).
Nach der Zugriffsverletzung funktioniert zwar alles
aber trotzdem muss sie ja eine Ursache haben.

Zitat von Luckie:

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;

[Privateer3000]

Ich hab es jetzt mehrmals getestet.
Getlasinputinfo greift ja auf die user32.dll zu,
diese ist auch vorhanden.
Getestet unter w2k und xp. immer das gleiche Ergebnis.

Sobald ich die funktion implementiere, startet die Anwendung
mit einer Fehlermeldung...

[SirThornberry]

kommt die av beim start des programmes oder erst bei aufruf des Timer-Events?

[Privateer3000]

da der timer (int. 1000) von anfang an läuft
nehm ich es mal an.

[himitsu]

was ist das für eine Fehlermeldung?

[Privateer3000]

das lustige an der Sache ist,
wenn die Anwendung geschlossen wurde und
wieder gestartet wird kommt keine Fehlermeldung.
Quasi nur nach Systemstart und anschliessend Anwendungsstart.

[RavenIV]

Also als erstes würde ich es mal mit try..except versuchen.
Dann im except den Text der Exception ausgeben.

Weiterhin einige Debugwerte einbauen.
Evtl auch nach jeder Codezeile eine Messagebox ausgeben.
So kannst Du nachverfolgen, wo genau es knallt.
Und dann hst Du einen Startpunkt für die Fehlersuche.