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 getmimetype 查询文件mime类型函数

Delphi 删除或清空一个目录(包含多级)

Delphi 将svg加载到timage控件

Delphi一句话复制整个文件夹(当然包括嵌套文件夹)

Delphi xe5发送短信以及读取短信代码

Delphi 获取大于2g的物理内存大小

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi 验证ip地址

Delphi 提取网页源文件纯文本函数

改写个Delphi 版 lz前辈的openprocess

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

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