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环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi xe6 读取android设备联系人

Delphi unidbtreegrid判断点击折叠事件

Delphi 如何确定屏幕分辨率

Delphi directx简单应用

Delphi提取任意长度随机数

Delphi ascii 码对照表

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi 长文件路径转换短文件路径

Delphi dbgrideh 的分组统计 datagrouping

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

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