delphi获取开机时间代码

本文整理自网络，侵删。

 delphi获取开机时间代码

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 利用for循环自我复制到全盘用timer监控

Delphi 在ms access数据库中图像的存储和显示

Delphi mac地址转换字符串

Delphi splitter 控件属性及作用

Delphi 一个整数转其二进制表示的小函数

Delphi 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection

Delphi动态复选框源码

Delphi 控制窗口显示隐藏

Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

Delphi计算md5

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

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