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 复制文件到全盘

dbgrid导出excl表

Delphi 根据扩展名的文件搜索

Delphi 对image字段存取图片、文件

Delphi 让嵌入窗体的 webbrowser 控件无边框

Delphi测试数据库连接时间

Delphi 关于禁止程序重复启动的另一种需要与实现

Delphi cpu窗口的扩展学习

Delphi滚动窗口标题

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...