Thema: Delphi SystemBootupTime

Einzelnen Beitrag anzeigen

Benutzerbild von peschai
peschai

Registriert seit: 15. Feb 2004
Ort: Göppingen
270 Beiträge
 
Delphi XE5 Professional
 
#1

SystemBootupTime

  Alt 28. Jan 2008, 13:20
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]
Peter Schaible
  Mit Zitat antworten Zitat