当前位置: 开源爱好者 » Delphi源码 » Windows相关 » 详情页

Delphi 计算Windows从启动后所运行的总时间

  • 时间:2018-02-12
  • 测试环境:Delphi7+
  • 源码概述:运行时间

Delphi 计算Windows从启动后所运行的总时间,这个功能在系统的日志中也可以查看到,这是用Delphi来获取到系统的运行时间信息,代码如下:
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
   hour := GetTickCount div 1000 div 60 div 60 ;
   minute := (GetTickCount - hour * 60 * 60 * 1000) div 1000 div 60 ;
   second := (GetTickCount - hour * 60 * 60 * 1000 - minute * 60 * 1000) div 1000;
   Label1.Caption := IntToStr(hour)+'小时 '+inttostr(minute)+'分 '+inttostr(second)+'秒';
  end;

Delphi 计算Windows从启动后所运行的总时间测试效果图
源码包大小:6.28K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图