delphi GetTickCount获取电脑开机时间

时间:2019-11-17 10:34:56
【文件属性】:
文件名称:delphi GetTickCount获取电脑开机时间
文件大小:157KB
文件格式:7Z
更新时间:2019-11-17 10:34:56
Delphi7 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;
【文件预览】:
GetTickCount
----Unit1.dcu(4KB)
----Unit1.dfm(497B)
----GetTickCount.dpr(192B)
----GetTickCount.dof(2KB)
----Unit1.~dfm(328B)
----GetTickCount.cfg(434B)
----GetTickCount.res(876B)
----GetTickCount.exe(385KB)
----Unit1.~pas(311B)
----Unit1.pas(822B)

网友评论