Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
Delphi 7 Personal
|
Re: Zeitzähler
13. Apr 2009, 00:29
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;
|
|
Zitat
|