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: MSDN-Library durchsuchen

GetLastInputInfo.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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.

Wie lange keine Benutzereingaben mehr erfolgt sind(user afk)

Wie lange keine Benutzereingaben mehr erfolgt sind(user afk)

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user

Forumregeln

MR321 Registriert seit: 18. Aug 2003 38 Beiträge	#3 Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user 24. Aug 2005, 04:22 Danke dir! Hatte die Code-Library danach durchsucht. Und irgendwelche Suchenfunktionen konnte ich nicht verwenden, da mir keine passenden Suchbegriffe eingefallen sind. Computers are like air conditioners, they stop working immediately, if you open windows.
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#6 Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user 10. Dez 2007, 20:14 kommt die av beim start des programmes oder erst bei aufruf des Timer-Events? Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#7 Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user 10. Dez 2007, 20:21 da der timer (int. 1000) von anfang an läuft nehm ich es mal an. Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat

himitsu Online Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.152 Beiträge Delphi 12 Athens	#8 Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user 11. Dez 2007, 09:47 was ist das für eine Fehlermeldung? Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

Privateer3000 Registriert seit: 10. Jun 2002 Ort: Jena 1.128 Beiträge Delphi 10.4 Sydney	#9 Re: Wie lange keine Benutzereingaben mehr erfolgt sind(user 11. Dez 2007, 16:25 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. Miniaturansicht angehängter Grafiken Peter +++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
	Zitat