Delphi 修改本地日期和时间

procedure TForm1.ModifySysdate(D: Double);
var
 systemtime:Tsystemtime;
  DateTime:TDateTime;
begin
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy:MM:dd');
Application.UpdateFormatSettings := False;
DateTime:=Now+d;
DateTimeToSystemTime(DateTime,systemtime);
SetLocalTime(systemtime);

end;

View Code