如何设置系统时间？

Question

举个例子最好有代码!

Answer 1

呵呵，你的信誉分怎么也下来了？
第一个
DateTime:=StrToDateTime(s); //获得时间（TDateTime格式）
  DateTimeToSystemTime(DateTime,systemtime);  //把Delphi的TDateTime格式转化为API的TSystemTime格式
  SetLocalTime(SystemTime);         //设置系统时间
 end;
绝对好使，分都给我吧，我都让人给杀了！

Answer 2

procedure TForm1.Button2Click(Sender: TObject);varsystemtime:Tsystemtime;DateTime:TDateTime;beginDateTime:=StrToDateTime(Edit1.text);DateTimeToSystemTime(DateTime,systemtime);SetLocalTime(SystemTime);GetLocalTime(SystemTime);//读取北京东8区时间DateTime:=SystemTimeToDateTime(SystemTime);Edit2.Text:=DateTimeToStr(DateTime);end;