本文整理自网络,侵删。
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 xe5 将Delphi code从winos 迁移到ios与android
Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段?
更多相关阅读请进入《Delphi》频道 >>