Delphi WinAPI SetLocaleInfo / GetLocaleInfo - 设置/获取 当前区域设置的信息项（日期格式、语言格式等）
1、SetLocaleInfo
语法原型：
BOOL SetLocaleInfoA(
LCID Locale, //要检索其信息的区域设置标识符。
LCTYPE LCType, //要设置的区域设置信息的类型。
LPCSTR lpLCData //指向包含要设置的区域设置信息的以null结尾的字符串的指针。信息必须采用特定于指定常量的格式。应用程序对函数的Unicode版本使用Unicode字符串，对ANSI版本使用ANSI字符串。
);
参数：
Locale //要检索其信息的区域设置标识符。
- LOCALE_SYSTEM_DEFAULT //表示要操作的是系统默认的设置;
- LOCALE_USER_DEFAULT //表示要操作的是当前用户的设置。还可以取其他值，用于具体修改某种语言区域的设置。一般取 LOCALE_USER_DEFAULT。
LCType //表示要操作信息的类型。以下 CONSTANT Long 类型参数：
- LOCALE_SCURRENCY = 20 //本地语言货币符号
- LOCALE_SINTLSYMBOL = 21 //国际货币符号
- LOCALE_SMONDECIMALSEP = 22 //小数分隔符
- LOCALE_SMONTHOUSANDSEP = 23 //千位分隔符
- LOCALE_SMONGROUPING = 24 //数据分组方式
- LOCALE_ICURRDIGITS = 25 //# 本地数字
- LOCALE_IINTLCURRDIGITS = 26 //# 国际数字
- LOCALE_ICURRENCY = 27 //货币正数表示模式
- LOCALE_INEGCURR = 28 //货币负数表示模式
- LOCALE_IPOSSIGNPOSN = 82 //货币正数符号的位置
- LOCALE_INEGSIGNPOSN = 83 //货币负数符号的位置
- LOCALE_IPOSSYMPRECEDES = 84 //正数中，货币符号位于值之前
- LOCALE_IPOSSEPBYSPACE = 85 //正数中，货币符号与值之间被空格分开
- LOCALE_INEGSYMPRECEDES = 86 //负数中，货币符号位于值之前
- LOCALE_INEGSEPBYSPACE = 87 //负数中，货币符号与值之间被空格分开
- LOCALE_FONTSIGNATURE = 88 //font signature
- LOCALE_SENGCURRNAME = 4103 //货币的英语名称
- LOCALE_SNATIVECURRNAME = 4104 //货币的当地语言名称
- LOCALE_ILANGUAGE = 1 //语言ID
- LOCALE_SLANGUAGE = 2 //语言区域名称
- LOCALE_SENGLANGUAGE = 4097 //语言英语名称
- LOCALE_SABBREVLANGNAME = 3 //语言名称缩写
- LOCALE_SNATIVELANGNAME = 4 //当地语言名称
- LOCALE_ICOUNTRY = 5 //国家代码
- LOCALE_SCOUNTRY = 6 //国家本地名称
- LOCALE_SENGCOUNTRY = 4098 //国家英语名称
- LOCALE_SABBREVCTRYNAME = 7 //国家名称缩写
- LOCALE_SNATIVECTRYNAME = 8 //当地语言国家名称
- LOCALE_IDEFAULTLANGUAGE = 9 //缺省语言ID
- LOCALE_IDEFAULTCOUNTRY = 10 //缺省国家代码
- LOCALE_IDEFAULTCODEPAGE = 11 //缺省的OEM代码
- LOCALE_SLIST = 12 //list item separator
- LOCALE_IDEFAULTANSICODEPAGE = 4100 //缺省的ASCII代码
- LOCALE_IDEFAULTMACCODEPAGE = 4113 //缺省的MACINTOH代码
- LOCALE_IMEASURE = 13 //0 = 公制, 1 = 美制
- LOCALE_SDECIMAL = 14 //decimal separator
- LOCALE_STHOUSAND = 15 //thousand separator
- LOCALE_SGROUPING = 16 //digit grouping
- LOCALE_IDIGITS = 17 //number of fractional digits
- LOCALE_ILZERO = 18 //leading zeros for decimal
- LOCALE_SNATIVEDIGITS = 19 //native ascii 0-9
- //Windows NT 4.0/2000/XP
- LOCALE_SISO639LANGNAME = 89 //ISO 语言缩写名称
- LOCALE_SISO3166CTRYNAME = 90 //ISO 国家缩写名称
- //Windows 2000/XP
- LOCALE_IDEFAULTEBCDICCODEPAGE = 4114 //缺省的EBCDIC代码
- LOCALE_SSORTNAME = 4115 //排序名称
- LOCALE_INEGNUMBER = 4112 //negative number mode
- LOCALE_SDATE = 29 //日期分隔符 可以单独使用
- LOCALE_STIME = 30 //时间风隔符 可以单独使用
- LOCALE_SSHORTDATE = 31 //短日期格式
- LOCALE_SLONGDATE = 32 //长日期格式
- LOCALE_STIMEFORMAT = 4009 //时间格式
- LOCALE_IDATE = 33 //短日期格式的排列顺序
- LOCALE_ILDATE = 34 //长日期格式的排列顺序
- LOCALE_ITIME = 35 //时间格式标示符号
- LOCALE_ITIMEMARKPOSN = 4011 //时间标记符位置
- LOCALE_ICENTURY = 36 //世纪识别符 (短日期)
- LOCALE_ITLZERO = 37 //时间数字前面前导0
- LOCALE_IDAYLZERO = 38 //日期数字前面前导0 (短日期)
- LOCALE_IMONLZERO = 39 //月份数字前面前导0 (短日期)
- LOCALE_S1159 = 40 //AM 指示符
- LOCALE_S2359 = 41 //PM 指示符
- LOCALE_ICALENDARTYPE = 4105 //日历类型指示符
- LOCALE_IPAPERSIZE = 4106 //0 = letter, 1 = a4, 2 = legal, 3 = a3
- LOCALE_IOPTIONALCALENDAR = 4107 //其它日历类型指示符
- LOCALE_IFIRSTDAYOFWEEK = 4108 //一周中的第一天指示符
- LOCALE_IFIRSTWEEKOFYEAR = 4109 //一年中的第一周指示符
- LOCALE_SDAYNAME1 = 42 //星期一的长名称
- LOCALE_SDAYNAME2 = 43 //星期二的长名称
- LOCALE_SDAYNAME3 = 44 //星期三的长名称
- LOCALE_SDAYNAME4 = 45 //星期四的长名称
- LOCALE_SDAYNAME5 = 46 //星期五的长名称
- LOCALE_SDAYNAME6 = 47 //星期六的长名称
- LOCALE_SDAYNAME7 = 48 //星期天的长名称
- LOCALE_SABBREVDAYNAME1 = 49 //星期一的缩写名称
- LOCALE_SABBREVDAYNAME2 = 50 //星期二的缩写名称
- LOCALE_SABBREVDAYNAME3 = 51 //星期三的缩写名称
- LOCALE_SABBREVDAYNAME4 = 52 //星期四的缩写名称
- LOCALE_SABBREVDAYNAME5 = 53 //星期五的缩写名称
- LOCALE_SABBREVDAYNAME6 = 54 //星期六的缩写名称
- LOCALE_SABBREVDAYNAME7 = 55 //星期日的缩写名称
- LOCALE_SMONTHNAME1 = 56 //一月的长名称
- LOCALE_SMONTHNAME2 = 57 //二月的长名称
- LOCALE_SMONTHNAME3 = 58 //三月的长名称
- LOCALE_SMONTHNAME4 = 59 //四月的长名称
- LOCALE_SMONTHNAME5 = 60 //五月的长名称
- LOCALE_SMONTHNAME6 = 61 //六月的长名称
- LOCALE_SMONTHNAME7 = 62 //七月的长名称
- LOCALE_SMONTHNAME8 = 63 //八月的长名称
- LOCALE_SMONTHNAME9 = 64 //九月的长名称
- LOCALE_SMONTHNAME10 = 65 //十月的长名称
- LOCALE_SMONTHNAME11 = 66 //十一月的长名称
- LOCALE_SMONTHNAME12 = 67 //十二月的长名称
- LOCALE_SMONTHNAME13 = 4110 //十三月的长名称 (如果存在)
- LOCALE_SABBREVMONTHNAME1 = 68 //一月的缩写名称
- LOCALE_SABBREVMONTHNAME2 = 69 //二月的缩写名称
- LOCALE_SABBREVMONTHNAME3 = 70 //三月的缩写名称
- LOCALE_SABBREVMONTHNAME4 = 71 //四月的缩写名称
- LOCALE_SABBREVMONTHNAME5 = 72 //五月的缩写名称
- LOCALE_SABBREVMONTHNAME6 = 73 //六月的缩写名称
- LOCALE_SABBREVMONTHNAME7 = 74 //七月的缩写名称
- LOCALE_SABBREVMONTHNAME8 = 75 //八月的缩写名称
- LOCALE_SABBREVMONTHNAME9 = 76 //九月的缩写名称
- LOCALE_SABBREVMONTHNAME10 = 77 //十月的缩写名称
- LOCALE_SABBREVMONTHNAME11 = 78 //十一月的缩写名称
- LOCALE_SABBREVMONTHNAME12 = 79 //十二月的缩写名称
- LOCALE_SABBREVMONTHNAME13 = 4111 //十三月的缩写名称 (如果存在)
- LOCALE_SPOSITIVESIGN = 80 //positive sign
- LOCALE_SNEGATIVESIGN = 81 //negative sign
- LOCALE_SYEARMONTH = 4102 //year month format string
- LOCALE_IDIGITSUBSTITUTION = 4116 //0 = none, 1 = context, 2 = native digit
示例：
procedure SetDateTimeFormat();
var
p:DWORD;
begin
SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy-MM-dd')); //短日期
SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,pchar('yyyy''年''M''月 ''d''日'''));
SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,pchar('H:mm:ss')); //设置时间
SendMessageTimeOut(HWND_BROADCAST,WM_SETTINGCHANGE,0,0,SMTO_ABORTIFHUNG,10,p);//设置完成后必须调用，通知其他程序格式已经更改，否则即使是程序自身也不能使用新设置的格式
end;
提示：设置日期时间格式后，应该向当前系统的激活窗口广播发送 WM_SETTINGCHANGE 消息，否则即使修改了，程序里还是不能使用的。
2、GetLocaleInfo
语法原型：
int GetLocaleInfoA(
LCID Locale, //要检索其信息的区域设置标识符。
LCTYPE LCType, //要检索的区域设置信息。
LPSTR lpLCData, //指向缓冲区的指针，此函数在其中检索请求的区域设置信息。如果cchData设置为0，则不使用此指针。有关更多信息，请参阅备注部分。
int cchData //lpLCData表示的数据缓冲区的大小，以TCHAR值为单位。或者，应用程序可以将此参数设置为0。在这种情况下，函数不使用lpLCData参数，而是返回所需的缓冲区大小，包括终止的空字符。
);
参数：
同上 SetLocaleInfo 的 的参数。
示例：
procedure GetDateTimeFormat();
var
buf:pchar;
i:integer;
GPrevShortDate,GPrevLongDate,GPrevTimeFormat:string;
begin
getmem(buf,100);
i:=100; //i必须在调用前赋值为buf缓冲区的长度。如果设为0或负值，将取不到设置的值
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,buf,i); //取当前用户设置，短日期格式。
GPrevShortDate:=string(buf);
i:=100;
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,buf,i); //取长日期格式
GPrevLongDate:=string(buf);
i:=100;
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,buf,i); //取时间格式
GPrevTimeFormat:=string(buf);
FreeMem(buf);
end;
创建时间：2021.04.26 更新时间：