Delphi中用GetTickCount获取计算机运行时间

时间：2011/9/3 15:28:32 点击：

　　核心提示：函数返回格式：天,小时,分钟,秒function WindowsUpTime : string ; function MSecToTime(mSec: Integer): string; const...

函数返回格式：天,小时,分钟,秒

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 hourTicks;
     Dec(mSec, ZM * minuteTicks) ;
     ZS := mSec div secondTicks;
     D := IntToStr(ZD) ;
     H := IntToStr(ZH) ;
     M := IntToStr(ZM) ;
     S := IntToStr(ZS) ;
     Result := D + '.' + H + ':' + M + ':' + S;
end;
begin
Result := MSecToTime(GetTickCount) ;
end;