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 xe增强的rtti妙用－－动态创建包中的窗口类

Delphi timer定时器实现定时执行

Delphi 获取所有磁盘分区另类方法

Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码!

Delphi of 打坐与普通攻击calll调用

Delphi 通过u盘方式加密

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