设置程序需要的时间格式

Application.UpdateFormatSettings := False;
LongDateFormat:= 'yyyy-MM-dd';
ShortDateFormat:= 'yyyy-MM-dd';
LongTimeFormat:= 'hh: mm:ss';
ShortTimeFormat:= 'hh: mm:ss';

DateSeparator:= '-';

TimeSeparator:= ':';

XE2以上版本：

Application.UpdateFormatSettings := False;

  FormatSettings.LongDateFormat := ‘yyyy-MM-dd‘;
  FormatSettings.ShortDateFormat := ‘yyyy-MM-dd‘;
  FormatSettings.LongTimeFormat := ‘hh:mm:ss‘;
  FormatSettings.ShortTimeFormat := ‘hh:mm:ss‘;
  FormatSettings.DateSeparator := ‘-‘;
  FormatSettings.timeSeparator := ‘:‘;

设置系统时间格式

SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, ‘yyyy-MM-dd‘);