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通过adoquery控件实现sqlserver数据库多结果集的数据打印

Delphi http post json示例

Delphi 获取 cpu 使用率的单元

Delphi scrollbox1滚动框鼠标滚轮

Delphi中获取memo鼠标所在位置的行和列

qdac项目

Delphi 使用 tedgebrowser 组件

Delphi 延时的4种方法

Delphi拷贝整个目录(包括子目录)

Delphi dos编程

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

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