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 直接调用记事本（notepad）打开文本文件

Delphi 关闭进程方法

Delphi idhttp的基本用法

Delphi 解析json生成json

Delphi 关于构造方法的重写

Delphi web格式与tcolor类型的转换函数

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi驱动开发研究第一篇--实现原理

Delphi判断线程是否释放

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

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