Windows-Benutzer-Leerlaufzeit

[himitsu]

So aufwändig ist es garnicht nötig, wenn man mit Überläufen rechnet.

x := GetTickCount - LastUserInput;
// oder sicherheitshalber immer mit Cast, wenn der implizite Cast durch due Zielvariable nicht ausreicht und wenn dich die Compilermeldungen stören
x := Cardinal(GetTickCount - LastUserInput);

[Der schöne Günther]

Vielen Dank für die Antworten, so werde ich es glaube ich machen: Einfach GetTickCount64 gegen GetTickCount tauschen (zumindest an dieser Stelle).

Da könnte er nach genau 49.7 Tagen einmal kurz falsch liegen aber wen kümmert das

[Michael II]

Zitat:

So aufwändig ist es gar nicht nötig, wenn man mit Überläufen rechnet.

Wir testen Programmteile halt immer auch mit eingeschalteter Überlaufprüfung. Und dann sind Dinge wie

x := GetTickCount - LastUserInput; unangenehm, weil im Fall GetTickCount < LastUserInput eine Integerüberlauf-Exception ausgelöst (und x nicht berechnet) wird - und der Code beim Testen somit durchfällt.

Bei ausgeschalteter Überlaufprüfung wird keine Exception ausgelöst und es wird "richtig" gerechnet.

Zitat:

Da könnte er nach genau 49.7 Tagen einmal kurz falsch liegen aber wen kümmert das

In der Release Version hast du wahrscheinlich/sicher Überlaufprüfung auf AUS. Dann rechnet dein Programm auch dann richtig, wenn GetTickCount < LastUserInput - dein Programm wird also nach Ersetzen von GetTickCount64 durch GetTickCount korrekte Werte berechnen (solange der letzte Userinput nicht mehr als 49 Tage zurückliegt):

Delphi-Quellcode:

var a, b , res : cardinal;
begin
  a := high(cardinal);
  b := 0;
  res := b-a;

res=1

[Der schöne Günther]

Ja. Das Integer-Exception-Problem sehe ich nicht auftreten, denn in meinem Fall ist die Variable x kein DWORD oder irgendein Unsigned-Typ sondern ein Double (Parameter von TTimeSpan.FromMilliseconds(..) )

[HolgerX]

Hmm..

Mal eine Frage:
Muss es überhaupt GetTickCount sein?

Reichen nicht die Millisekunden von TDateTime?

Mit Now die Startzeit vom Idle nehmen und dann kann mit MilliSecondsBetween die Differenz zum Ende von Idle ermittelt werden.
Aufsummieren und schon haste die Gesamtzeit in ms.

Für eine (einfache) Erfassung sollte dies auch ohne Überlauf ausreichen.

[Der schöne Günther]

Woher soll ich wissen wann ich Now() aufrufen soll um den Zeitstempel zu aktualisieren und wann nicht? Das verstehe ich nicht.

GetLastInputInfo() liefert einen fertigen Zeitstempel wann jemand die aktuelle Windows-Sitzung das letzte mal bedient hat. Bis auf den Überlauf eigentlich schön einfach.

[himitsu]

Ihr wisst aber, dass man die Überlaufprüfung um die Stelle mit dem Überlauf auch deaktivieren kann?

[Der schöne Günther]

Es gibt keinen Überlauf. Wir rechnen DWORD minus DWORD und stecken das in ein Double. Völlig legitim

Der "Überlauf" dass der TickCount eines Tages wieder bei Null vonstatten geht geschieht ja irgendwo in den Untiefen des Windows-Kernels und nicht meiner Delphi-Anwendung.