我想修改计算机的时间，例如我想把2002-7-1 16:46:26设定为当前的时间，高手怎么办啊？

Question

var
        i: _SysTemtime;
begin
        i.wYear:=
        i.wMonth:
        i.wDay:
        i.wHour:=
        .
        .
        .
        setsystemtime(i)
end;
//数据自己写去

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
t:TSystemTime ;
begin
getsystemtime(t);
t.wYear :=2002;
t.wMonth :=7;
t.wDay :=1;
t.wHour :=16;
t.wMinute :=46;
t.wSecond :=26;
setsystemtime(t);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  MySystemeTime:TSystemeTime;
begin
  with MySystemeTime do
  begin
    wYear:=2002;
    wMonth:=7;
    wDay:=1;
    wHoure:=16;
    wMinute:=46;
    wSecond:=26;
  end;
  SetSystemTime(MySystemeTime);
  Application.MessageBox('系统时间已设定','提示',MB_OKCANCEL);
end;

Answer 3

var
    lSysTime:TSystemTime;
    lCurrentTime:TdateTime;
begin
    lCurrentTime       :=Now;
    DateTimeToSystemTime(lCurrentTime,lSysTime);
    SetLocalTime(lSysTime);
end;

Answer 4

to 40Star, hnsyf() :
可是修改之后，系统时间变成了2002年7月3号0点46分，怎么回事啊？