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执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误

Delphi xe5、6、7在android或者ios上使用ansistring和ansichar

Delphi getfileversion 获取文件版本

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