|
Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
Delphi 7 Enterprise
|
Re: Zeit seit Systemstart und aktuelle Zeit abfragen
19. Jan 2005, 16:54
Delphi-Quellcode:
procedure Zeit_ausgeben;
var
S : String;
d : TDateTime;
tc: LongInt;
begin
d:=Now;//Now liefert aktuelle Zeit
S:=TimeToStr(d);
ShowMessage('Aktuelle Zeit: '+s);
tc:= GetTickCount;//Zeit seit Systemstart
Showmessage('Seit Systemstart sind '+IntToStr(tc div 1000)+' Sekunden vergangen.');
end;
Damit müsste es funktionieren.
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
|