如何设置控制面板中的日期样式和日期分隔符

請用delphi寫出改變日期样式和日期分隔符的例程

解决方案 »

  1.   

    那就是改注册表呀！这还要什么代码。程序里面最好修改 ShortDateFormat 这些变量，这样这个修改只影响你当前的程序。
      

  2.   

    以下是日期格式的注册表源码
    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"="-"