求助:SetLocalTime 为什么不能设置系统时间啊？谢谢！

Question

请教:
我用 GetLocalTime() 可以得到系统
我想用 SetLocalTime 来设置系统时间,可是不能设置void  GameSet::ParameterSetLocalTime( )
{
     int i;
     SYSTEMTIME systime;
     systime.wYear = 2008 ;
     systime.wMonth = 12;
     systime.wDay  = 1 ;
     systime.wHour = 0;
     systime.wMinute  = 0;
     systime.wSecond = 0;
     i = SetLocalTime(&systime);
}
我是错在哪里啊？
除了 SetLocalTime 
还可以用别的来设置系统时间吗？谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:='1998-12-12 12:00 am'; end; //可在运行时，也可在Edit1中重新键入日期， 但须注意格式。 procedure TForm1.Button2Click(Sender: TObject); var systemtime:Tsystemtime; DateTime:TDateTime; begin DateTime:=StrToDateTime(Edit1.text); DateTimeToSystemTime(DateTime,systemtime); SetLocalTime(SystemTime); GetLocalTime(SystemTime);//读取北京东8区时间 DateTime:=SystemTimeToDateTime(SystemTime); Edit2.Text:=DateTimeToStr(DateTime); end; //Button2点激后，系统时间就变为Edit1中的时间了。