delphie如何获取开机时间

发布网友发布时间：2022-11-28 12:35

共2个回答

热心网友时间：2023-10-22 22:38

delphi获取开机时间代码

var
T1: Int64;
T2,T3: Comp;
T4: TDateTime;
begin
T1 := 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;

热心网友时间：2023-10-22 22:38

procere TForm1.Button1Click(Sender: TObject);
//GetTickCount函数可以得到从开以来所经过的毫秒数.再与当前时间相减就可以了!
var
StartTime:TDateTime;
begin
StartTime:=Now-GetTickCount/1000/60/60/24;
showmessage('本次开机时间为：'+DateTimeToStr(StartTime));
{uses DateUtils; SecondsBetween
也可用MinuteBetween,function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64; }
showmessage('本次开机总时间长度为：'+inttostr(SecondsBetween(Now,StartTime))+'秒');
end;