delphi 获取计算机已运行时间

本文整理自网络，侵删。

 function TRATServer.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;

编程环境：WindowsXP_SP3+Delphi7
 

相关阅读 >>

Delphi txt 指定行复制器

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi 小数点四舍五入问题

Delphi 获取某个页面所有的链接

Delphi -- gdi+ Delphi如何让 tgpimage 直接从流中加载图片

Delphi根据输入日期按年月周日输出日期段

Delphi 对int64计算的一种处理方式

Delphi 利用tmemorystream对象存取缓存

Delphi idtcp下载文件

Delphi中messagebox用法

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

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