SystemBootupTime

[peschai]

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]