L lfclover Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #1 Delphi中获取本次开机时间的函数是什么？在哪个单元中？
W wr960204 Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #2 uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); var D : TDateTime; begin D := Now(); D := IncSecond(D, -(GetTickCount() div 1000)); ShowMessage(FormatDateTime('开机时间是:YYYY-MM-DD hh:mm:ss', D)); end;
uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); var D : TDateTime; begin D := Now(); D := IncSecond(D, -(GetTickCount() div 1000)); ShowMessage(FormatDateTime('开机时间是:YYYY-MM-DD hh:mm:ss', D)); end;
L lfclover Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #4 GetTickCount是获取开机到现在的ms数吧，没有直接的函数吗
D duxing Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #6 用现在时间 new() 减去 GetTickCount(); 正如楼上wr960204
K kzx0211 Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #7 好象不行,GetTickCount()是可以用确定一段代码执行了多少时间,但系统开始时间的话中间没变量是不性的吧,默认会变成当前程序的执行时间吧???
L lfclover Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #8 我是无聊了，想替同学做个小程序，就是想知道什么时候开机的，用GetTickCount的话中间如果改时间了用减的方法就不对了啊。 下班了结贴了，每人分点吧……只是分不多，聊表谢意了，呵呵！
