System boot time

[peschai]

Hallo
Erledigt. Code auch in CodeLibrary zur Verfügung gestellt...
Problem selbst auf folgende Art gelöst ...

Delphi-Quellcode:

function fctSystemBootUpTime:TDateTime;
var
  n1,n2: Int64;
begin
  // local init
  Result := 0.0;
  n1 := 0;
  n2 := 0;
  // local main
  QueryPerformanceFrequency(n1);  // counts per second
  QueryPerformanceCounter(n2);    // counts since system boot time
  if (n1<>0) then
    begin
      n1 := Round(n2/n1);             // seconds since system boot time
      //24 hours are how much seconds?  60sec*60min*24hours = 86400 sec/day
      Result := Now - (n1/86400);
    end;
end;