更改系统时间

procedure TForm1.Button1Click(Sender: TObject);

var

  d1:TDatetime;

  cd:string;

  systemtime:Tsystemtime;

  S:string;

begin

  DateSeparator:='-';

  ShortDateFormat:='yyyy-MM-dd';

  LongDateFormat:='yyyy''年'',MM''月'',dd''日''';

  TimeSeparator:=':';

  DateTimetoString(S,'hh:nn:ss',now);

  cd:='2016-09-30 '+S;

  d1:=StrToDateTime(cd);

  DateTimeToSystemTime(d1,systemtime);

  SetLocalTime(SystemTime);

end;