delphi GetTickCount获取电脑开机时间

本文整理自网络，侵删。

 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;
 

相关阅读 >>

Delphi 绘制精美的签名图片

Delphi 合并动态数组

Delphi 10.3 调试程序时出错：unable to create process:请求的操作需要提升

Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie

Delphi 动态数组传递数据示例

Delphi如何获取句柄?

Delphi 利用vclzip实现分卷压缩

Delphi 通用压缩单元

Delphi 获取access中的表名

Delphi idsmtp控件发送邮件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi GetTickCount获取电脑开机时间