让Delphi程序不受Windows日期格式的影响

 1 procedure SetSysDateFormat;
 2 begin
 3   // 设置WINDOWS系统的短日期的格式
 4   SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LO  CALE_SSHORTDATE, 'yyyy-MM-dd');
 5   Application.UpdateFormatSettings := False;
 6   // 设定程序本身所使用的日期时间格式
 7   LongDateFormat := 'yyyy-MM-dd';
 8   ShortDateFormat := 'yyyy-MM-dd';
 9   LongTimeFormat := 'hh:nn:ss';
10   ShortTimeFormat := 'hh:nn:ss';
11   DateSeparator := '-';
12   TimeSeparator := ':';
13 end;

在程序初始化的时候执行上面的方法，不论WINDOWS的短日期格式怎样设置都不再影响我们的DELPHI程序了。

谢祥选【小宇飞刀(xieyunc)】