如何获取系统当前开机时间(10分)

W

wxf_wxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #1

如何获取系统当前开机时间

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #2

Now-GetTickCount就是啦。

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #3

呵呵楼上说的没错，来晚啦

 

C

cnkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #4

补充一下：
Now 返回的是 Float 型的天数日期，
GetTickCount 返回的是开机至今的毫秒数，
两者的计算单位要作相应转换

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
Startup:TDateTime;
begin
Startup:=TimeStampToDateTime(MsecsToTimeStamp(TimeStamptoMsecs(DateTimeToTimeStamp(Now))-gettickCount));
showmessage((FormatDateTime(('"开机时间:"yyyy"年"mm"月"dd"日 "ddd" "hh:nn:ss.zzz'),Startup)));
showmessage((FormatDateTime(('"开机时间:"c'),Startup)));
end;

 

W

wxf_wxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #6

接受答案了.