本文整理自网络,侵删。
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 让combobox只允许输入数字和回车键以及Delphi key值表
Delphi idhttp post json 上传 php 接收
Delphi iddecodermime 对图像编码base64解码成图像文件
Delphi 从paintbox拷贝一部分内容到tbitmap
更多相关阅读请进入《Delphi》频道 >>