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多媒体函数

Delphi 软关闭显示器的代码

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi spcomm串口控件的例程

Delphi idhttp post 支持 gzip 解压缩

Delphi idsmtp发送邮件的问题

Delphi多线程程序示例

Delphi 请求时间，为当前时间，数值为1970-01-01以来的毫秒数

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