delphi 获取计算机从开机开始的已运行时间

本文整理自网络，侵删。

 function GetRunningTime:string;//获取计算机已运行时间
var
hour,minute,second,sumsecond:integer;
begin
sumsecond:=gettickcount div 1000;//运行的秒数
hour:=sumsecond div 3600;
minute:= sumsecond mod 3600 div 60;
second:=sumsecond mod 3600 mod 60;
result:=inttostr(hour)+':'+inttostr(minute)+':'+inttostr(second);
end; 

相关阅读 >>

Delphi 生成全球唯一标识符

Delphi 计算农历的单元

Delphi中exit,abort,break,continue,halt,runerro 的区别

Delphi xe5 android 使用system.zip单元释放资源文件

Delphi 杨辉三角

Delphi 控制组件位置上下左右

Delphi xe5 for android ttabcontrol 控件

Delphi datasnap 初步入门使用总结

Delphi通过idsmtp发送邮件的简单代码

Delphi 文件路径获取文件名不带扩展名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取计算机从开机开始的已运行时间