在delphi中 如何修改操作系统日期时间格式？？

Question

如题

Answer 1

var   　　   
    systemtime:Tsystemtime;  
　　DateTime:TDateTime;  
begin  
　　DateTime:=StrToDateTime(Edit1.text);   //获得时间（TDateTime格式）  
　　DateTimeToSystemTime(DateTime,systemtime);   //把Delphi的TDateTime格式转化为API的TSystemTime格式  
　　SetLocalTime(SystemTime);   //设置系统时间  
　　GetLocalTime(SystemTime);   //读取系统时间  
　　DateTime:=SystemTimeToDateTime(SystemTime);   //把API的TSystemTime格式   转化为   Delphi的TDateTime格式  
　　Edit2.Text:=DateTimeToStr(DateTime);   //显示当前系统的时间  
end; 关键点是：SetLocalTime(SystemTime);   里面的参数自己调下就可以了

Answer 2

如果是修改你本程序中用到的日期格式
在sysutils单元里有如下几个变量
  DateSeparator: Char;
  ShortDateFormat: string;
  LongDateFormat: string;
  TimeSeparator: Char;
  ShortTimeFormat: string;
  LongTimeFormat: string;
对这些变量进行设置