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;