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

Delphi中GetTickCount获取开机时间的代码

时间:2011/9/3 15:31:03 点击:

  核心提示:var T1: Int64; T2,T3: Comp; T4: TDateTime;begin T1 := GetTickCount; {从开机到现在的毫秒数} T2 := TimeStampToMS...
var
  T1: Int64;
  T2,T3: Comp;
  T4: TDateTime;
begin
  T1 := GetTickCount;                               {从开机到现在的毫秒数}
  T2 := TimeStampToMSecs(DateTimeToTimeStamp(Now)); {从 0001-1-1 到当前时间的毫秒数}
  T3 := T2 - T1;                                    {从 0001-1-1 到开机时刻的毫秒数}
  T4 := TimeStampToDateTime(MSecsToTimeStamp(T3));  {从 0001-1-1 到开机时刻的时间}
  ShowMessage(DateTimeToStr(T4));                   {显示开机时间}
end;

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