用DELPHI设置WINDOWS的日期格式

Question

如：WINDOWS的日期格式为：YY-MM-DD ，而我想将其更改的YYYY-MM-DD 的格式，应如何实现，请各位帮忙。

Answer 1

长日期
你可以直接把它导入到注册表
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Control Panel\International]
"iCountry"="86"
"iCurrDigits"="2"
"iCurrency"="0"
"iDate"="2"
"iDigits"="2"
"iLZero"="0"
"iMeasure"="0"
"iNegCurr"="2"
"iTime"="1"
"iTLZero"="0"
"Locale"="00000804"
"s1159"="上午"
"s2359"="下午"
"sCountry"="中华人民共和国"
"sCurrency"="￥"
"sDate"="-"
"sDecimal"="."
"sLanguage"="CHS"
"sList"=","
"sLongDate"="yyyy'年'M'月'd'日'"
"sShortDate"="yyyy-MM-dd"
"sThousand"=","
"sTime"=":"
"sLongDate16"="dddd', 'MMMM' 'dd', 'yyyy"
"iTimePrefix"="1"
"iCentury"="0"
"iDayLZero"="1"
"iMonLZero"="1"
"iChinaYear"="0"
"iCalendar"="1"
"sTimeFormat"="H:mm:ss"
"sMonDecimalSep"="."
"sMonThousandSep"=","
"iNegNumber"="1"
"sNativeDigits"="0123456789"
"NumShape"="1"
"iCalendarType"="1"
"iFirstDayOfWeek"="6"
"iFirstWeekOfYear"="0"
"sGrouping"="3;0"
"sMonGrouping"="3;0"
"sPositiveSign"=""
"sNegativeSign"="-"短日期
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Control Panel\International]
"iCountry"="86"
"iCurrDigits"="2"
"iCurrency"="0"
"iDate"="2"
"iDigits"="2"
"iLZero"="0"
"iMeasure"="0"
"iNegCurr"="2"
"iTime"="1"
"iTLZero"="0"
"Locale"="00000804"
"s1159"="上午"
"s2359"="下午"
"sCountry"="中华人民共和国"
"sCurrency"="￥"
"sDate"="-"
"sDecimal"="."
"sLanguage"="CHS"
"sList"=","
"sLongDate"="yyyy'年'M'月'd'日'"
"sShortDate"="yyyy-M-d"
"sThousand"=","
"sTime"=":"
"sLongDate16"="dddd', 'MMMM' 'dd', 'yyyy"
"iTimePrefix"="1"
"iCentury"="0"
"iDayLZero"="1"
"iMonLZero"="1"
"iChinaYear"="0"
"iCalendar"="1"
"sTimeFormat"="H:mm:ss"
"sMonDecimalSep"="."
"sMonThousandSep"=","
"iNegNumber"="1"
"sNativeDigits"="0123456789"
"NumShape"="1"
"iCalendarType"="1"
"iFirstDayOfWeek"="6"
"iFirstWeekOfYear"="0"
"sGrouping"="3;0"
"sMonGrouping"="3;0"
"sPositiveSign"=""
"sNegativeSign"="-"

Answer 2

OnCreate:
 ShortDateFormat := 'yyyy-MM-dd'

Answer 3

给你个过程
//设置时间格式procedure IniDateFormat(ChangeSystem: Boolean = False);
begin
  //--Setup user DateSeparator
  DateSeparator := '-';
  ShortDateFormat := 'yyyy-M-d';
  if not ChangeSystem then Exit;
  SetLocaleInfo(LOCALE_SLONGDATE, LOCALE_SDATE, '-');
  SetLocaleInfo(LOCALE_SLONGDATE, LOCALE_SSHORTDATE, 'yyyy-MM-dd');
end;

Answer 4

ShortDateFormat := 'yyyy-MM-dd'; // 这样就OK啦