您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

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;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2019 版权所有 All Rights Reserved.
  • 沪ICP备05001939号