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 idhttp上传图给asp完美解决

Delphi 判断当前程序是否是活动窗口

Delphi 收集了比较全的字符串进制转换

Delphi版文件夹加密软件源代码

Delphi gif 动画建立

Delphi setprivilege 提权代码

Delphi 判断驱动器盘符是否有效

Delphi 匹配中文的正则表达式

Delphi ntfs usn 磁盘文件搜索

Delphi 关闭android安卓程序

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...