procedure SetSysDateFormat; begin // 设置WINDOWS系统的短日期的格式 SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LO CALE_SSHORTDATE, 'yyyy-MM-dd'); Application.UpdateFormatSettings := False; // 设定程序本身所使用的日期时间格式 LongDateFormat := 'yyyy-MM-dd'; ShortDateFormat := 'yyyy-MM-dd'; LongTimeFormat := 'hh:nn:ss'; ShortTimeFormat := 'hh:nn:ss'; DateSeparator := '-'; TimeSeparator := ':'; end;在程序初始化的时候执行上面的方法,不论WINDOWS的短日期格式怎样设置都不再影响我们的DELPHI程序了