Ich hab' das ganze nochmal ein wenig optimiert, muss nicht alle High(DWORD) Millisekunden mehr ausgeführt werden, sondern kann beliebig aufgerufen werden:
Delphi-Quellcode:
var
QPF: Int64 = 0;
function GetTickCountEx: TUpTime;
begin
if QPF = 0 then
QueryPerformanceFrequency(QPF);
QueryPerformanceCounter(Ticks);
Ticks := Ticks div QPF;
with Result do
begin
MilliSeconds := Ticks mod 1000;
Seconds := (Ticks div 1000) mod 60;
Minutes := (Ticks div 60000) mod 60;
Hours := (Ticks div 3600000) mod 24;
Days := ((Ticks div 3600000) div 24) mod 30;
Months := ((Ticks div 3600000) div 24) div 30;
Years := ((Ticks div 3600000) div 24) div 365;
end;
end;
[edit=Chakotay1308]Beitrag befindet sich nun 
hier in der Code-Library. Mfg, Chakotay1308[/edit]