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 opendialog设置默认打开路径

Delphi多线程程序示例（最简单的多线程）

Delphi木马生成技术

Delphi返回一个汉字的unicode编码

Delphi利用文件流把文件拆分与合并

Delphi 颜色转换成 html 颜色代码

Delphi xe5 将Delphi code从winos 迁移到ios与android

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

Delphi 如何从dll中检索导出函数的列表

Delphi 串口查询所有com口

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

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