请问如何更改系统时间？(100分)

C

chinargb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #1

请问如何更改系统时间？

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
systemtime : TSystemTime;
NewTime:string;
begin
NewTime:='13:58:00';
DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime);
SetLocalTime(systemtime);
end;

 

C

chinargb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #3

谢谢！

 

C

chinargb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #4

如果要更改日期？