午夜开始到现在经过的秒数的函数

计算机已经正常运行了多久的时间？ FunCtion GetSec:double
Var
DT,DT0:TdateTime
Systime:TSystemTime;
begin
GetLocalTime(SysTime)
DT := SystemTimeToDateTime(SysTime)
with Systime do
begin
whour := 0;
wminute := 0;
wsecond := 0;
wMilliseconds := 0
end
DT0 := SystemTimeToDateTime(Systime)
Result:= (DT - DT0)*24*60*60
end
****************************
计算机已经正常运行了多久的时间？