varT1:Int64;T2,T3:Comp;T4:TDateTime;beginT1:=GetTickCount;{从开机到现在的毫秒数}T2:=TimeStampToMSecs(DateTimeToTimeStamp(Now));{从0001-1-1到当前时间的毫秒数}T3:=T2-T1;{从0001-1-1到开机时刻的毫秒数}T4:=TimeStampToDateTime(MSecsToTimeStamp(T3));{从0001-1-1到开机时刻的时间}ShowMessage(DateTimeToStr(T4));{显示开机时间}end;