محاسبه ی دقیق زمان کارکرد سیستم

[admin]

اینم یک تابع کار آمد واسه محاسبه ی زمان کارکرد سیستم

کد:

{ÒãÇä ˜ÇјÑÏ ÓíÓÊã }
 

function WindowsUpTime : string ;
  function MSecToTime(mSec: Integer): string;
  const
    secondTicks = 1000;
    minuteTicks = 1000 * 60;
    hourTicks = 1000 * 60 * 60;
    dayTicks = 1000 * 60 * 60 * 24;
  var
     D, H, M, S: string;
     ZD, ZH, ZM, ZS: Integer;
  begin
     ZD := mSec div dayTicks;
     Dec(mSec, ZD * dayTicks) ;

     ZH := mSec div hourTicks;
      Dec(mSec, ZH * hourTicks) ;

      ZM := mSec div minuteTicks;
     Dec(mSec, ZM * minuteTicks) ;
     
     ZS := mSec div secondTicks;
     Dec(mSec, Zs * secondTicks) ;

     D := IntToStr(ZD) ;
     H := IntToStr(ZH) ;
     M := IntToStr(ZM) ;
     S := IntToStr(ZS) ;
     Result := D + "." + H + ":" + M + ":" + S;
  end;
begin
  result := MSecToTime(GetTickCount) ;


  
end;