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 中 findwindow 和 findwindowex 的语法和用法

Delphi 判断网络是否连通

Delphi 右下角滑动消息窗口

Delphi的对象注销方法destroy和free的区别

Delphi 两个exe之间共享数据

Delphi中如何捕获mediaplayer播放的视频中的每一帧 ?

Delphi listbox1列表随机打乱

Delphi listbox 使用

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi rest api post sample

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

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