Hallo,
gibt die SystemBootupTime zurück. Funktioniert auch bei mehr als 47 Tagen (Einschränkung bei GetTickCount...)
Delphi-Quellcode:
function fctSystemBootUpTime: TDateTime;
var
n1, n2: Int64;
begin
// local init
Result := 0.0;
n1 := 0;
n2 := 0;
// local main
if QueryPerformanceFrequency(n1) and QueryPerformanceCounter(n2) then
begin
if (n1<>0) and (n2<>0)
then Result := Now - ( (n2 / n1) / 86400);
end;
end;
[edit=Matze]Überarbeitete Version eingefügt. MfG, Matze[/edit]