设置程序需要的时间格式

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‘);