delphi 获取计算机已运行时间

本文整理自网络，侵删。

 function TRATServer.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;

编程环境：WindowsXP_SP3+Delphi7
 

相关阅读 >>

Delphi捕捉屏幕

Delphi 颜色转换成 html 颜色代码

Delphi获取当前计算机所有盘符

Delphi 向windows窗口发送alt组合键的问题

移植Delphi7的tclientsocket,tserversocket

Delphi 去掉ide开启后弹出安全警告框

Delphi 微信公众平台 Delphi sdk

Delphi xe7的android应用取得wi-fi的信息

Delphi中如何控制webbrowser滚动条

Delphi 获取含跨域网址的框架网页的源码

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

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