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 控制n个字符间距空格

Delphi 打开文件夹并定位到一个文件

Delphi 批量操作按钮组件属性

Delphi 控制窗口显示隐藏

Delphi 自带的 base64 编解码函数

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

Delphi 数据模块池

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi android实例-读取设备联系人(xe8+小米2)

Delphi动态创建组件，并释放内存

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