Zeitzähler

[BullsEye]

hm es gibt aber auch ne Funktion um die laufende Zeit des Rechners zu ermitteln OHNE, das ich das Programm von Windowsstart an mitlaufen habe.

EDIT:

Delphi-Quellcode:

uses DateUtils; // Bin mir nicht mehr sicher, ob das mit rein muss.

(..)


procedure GetWindowsUpTime(var ADay, AHours, AMinutes, ASeconds: Integer);
const
  OneDay : Integer = 1000 * 60 * 60 * 24;
  OneHour : Integer = 1000 * 60 * 60;
  OneMinutes : Integer = 1000 * 60;
  OneSecond : Integer = 1000;
var
  Start : Integer;
  d, h, s: Integer;
begin
  Start:=GetTickCount;
  ADay:=Start DIV OneDay; //Tage
  d:=Start MOD OneDay;
  AHours:=d DIV OneHour; //Stunden
  h:=d MOD OneHour;
  AMinutes:=h DIV OneMinutes; //Minuten
  s:=h MOD OneMinutes;
  ASeconds:=s DIV OneSecond; //Sekunden
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
 var
  Tage, Stunden, Minuten, Sekunden: Integer;
begin
  GetWindowsUpTime(Tage, Stunden, Minuten, Sekunden);
  lblUpTime.Caption:=Format(' %d Tagen, %d Stunden, %d Minuten und %d Sekunden', [Tage,Stunden,Minuten,Sekunden])
end;

[Luckie]

Das ist die Zeit seit Rechnerstart. Aber da mehrere Benutzer sich nach einander anmelden können, hast du wieder die Zeit aller Benutzer und nicht die jedes einzelnen Bneutzers.

Zitat:

Deshalb speichert er jetzt nur noch alle paar minuten ab. Und bei onclose und ondestroy.

Und warum das? Close ruft OnClose auf und von da wird OnDestroy aufgerufen.

[BullsEye]

Zitat:

Zitat von Luckie

Das ist die Zeit seit Rechnerstart. Aber da mehrere Benutzer sich nach einander anmelden können, hast du wieder die Zeit aller Benutzer und nicht die jedes einzelnen Bneutzers.

Ja, schon aber bei Ihm scheint es bisher auch immer nur einen Benutzer zu geben. Man könnte das ganze ja erweitern mit der Zeit, in der keine Eingabe am PC erfolgt (Maus/Tastatur etc) und die Zeit dann abziehen.