（抢分题）用SetLocalInfo修改日期格式，怎么不会立即生效？

Question

不用修改什么，直接在mainForm.OnCreate写：
LongDateFormat := 'yyyy''年''mm''月''dd''日''';
ShortDateFormat := 'yyyy-MM-dd';其它类似。
SetLocalInfo修改完注册表，而LongDateFormat之类的东东是Application.Initialize前从注册表读取的，读完后，又不会再读了。

Answer 1

var
  SysTime:TSystemTime;
  MyTime:TDateTime;
begin
  MyTime:=StrToDateTime(Edit1.Text);
  DateTimeToSystemTime(MyTime,SysTime);
  SetLocalTime(SysTime);
end;
这样可以改变系统日期时间

Answer 2

SetLocalInfo没有用过，可以看一看帮助