【转】SetThreadLocale解决越南文乱码问题

转自http://hi.baidu.com/killwolf110/item/838d56224067c63395f62b70

程序需要运行在越南地区，语言为越南文，操作系统为英文版，程序支持unicode，但是显示时还是出现乱码，主要出现在越南文的标点符号位置。

解决办法：
    1.控制面板 ——> 区域和语言选项——>语言——> 附加的语言支持 ——> 为复制文字和从右到左的语言安装文件（包括泰文） 为东亚语言安装文件选中上面的checkbox，然后系统自动安装语言包，再次运行程序，显示正常。

2.程序内部设置区域
    使用SetThreadLocale函数设置运行区域，如越南文：
    【delphi】SetThreadLocale($042A); 

设置前最好判断下环境，在特定的环境下才设置：

//处理越南文 ,$是英语 - 美国， $042A是越南，$是中文
//if (word(GetSystemDefaultLangID() and $eFF)=Lang_English) then
if (GetThreadLocale=$042A) or (GetThreadLocale=$) then //取得当前线程的地方ID
begin
SetThreadLocale($042A);
end;

代码添加在程序初始化的地方
    前提是控件支持Unicode，如TNT系列控件或AlphaControls(要开启TNT编译选项并重新编译并安装)

字体也是个问题，有时拖放控件的默认字体是不被支持的，显示时就会出现异常，如Dong，会显示为Doong或Donng,甚至是Do|ng。把字体换为 Tahoma,编码为默认，就好了。

3.非程序，如Flash
    解决办法是在英语操作系统里面，安装英文版本的Flash制作工具，如Flash MX
    在这个环境里面重新生成之前在中文环境里的flash。

区域设置 ID (LCID) 表

区域设置描述	简写	十六进制值	十进制值
南非荷兰语	af	0x0436	1078
阿尔巴尼亚语	sq	0x041C	1052
阿拉伯语 - 阿拉伯联合酋长国	ar-ae	0x3801	14337
阿拉伯语 - 巴林	ar-bh	0x3C01	15361
阿拉伯语 - 阿尔及利亚	ar-dz	0x1401	5121
阿拉伯语 - 埃及	ar-eg	0x0C01	3073
阿拉伯语 - 伊拉克	ar-iq	0x0801	2049
阿拉伯语 - 约旦	ar-jo	0x2C01	11265
阿拉伯语 - 科威特	ar-kw	0x3401	13313
阿拉伯语 - 黎巴嫩	ar-lb	0x3001	12289
阿拉伯语 - 利比亚	ar-ly	0x1001	4097
阿拉伯语 - 摩洛哥	ar-ma	0x1801	6145
阿拉伯语 - 阿曼	ar-om	0x2001	8193
阿拉伯语 - 卡塔尔	ar-qa	0x4001	16385
阿拉伯语 - 沙特阿拉伯	ar-sa	0x0401	1025
阿拉伯语 - 叙利亚	ar-sy	0x2801	10241
阿拉伯语 - 突尼斯	ar-tn	0x1C01	7169
阿拉伯语 - 也门	ar-ye	0x2401	9217
巴斯克语	eu	0x042D	1069
白俄罗斯语	be	0x0423	1059
保加利亚语	bg	0x0402	1026
加泰罗尼亚语	ca	0x0403	1027
中文 - 中华人民共和国	zh-cn	0x0804	2052
中文 - 中华人民共和国香港特别行政区	zh-hk	0x0C04	3076
中文 - 新加坡	zh-sg	0x1004	4100
中文 - 台湾地区	zh-tw	0x0404	1028
克罗地亚语	hr	0x041A	1050
捷克语	cs	0x0405	1029
丹麦语	da	0x0406	1030
荷兰语	nl	0x0413	1043
荷兰语 - 比利时	nl-be	0x0813	2067
英语 - 澳大利亚	en-au	0x0C09	3081
英语 - 伯利兹	en-bz	0x2809	10249
英语 - 加拿大	en-ca	0x1009	4105
英语 - 爱尔兰	en-ie	0x1809	6153
英语 - 牙买加	en-jm	0x2009	8201
英语 - 新西兰	en-nz	0x1409	5129
英语 - 南非	en-za	0x1C09	7177
英语 - 特立尼达岛	en-tt	0x2C09	11273
英语 - 英国	en-gb	0x0809	2057
英语 - 美国	en-us	0x0409	1033
爱沙尼亚语	et	0x0425	1061
波斯语	fa	0x0429	1065
芬兰语	fi	0x040B	1035
法罗语	fo	0x0438	1080
法语 - 标准	fr	0x040C	1036
法语 - 比利时	fr-be	0x080C	2060
法语 - 加拿大	fr-ca	0x0C0C	3084
法语 - 卢森堡	fr-lu	0x140C	5132
法语 - 瑞士	fr-ch	0x100C	4108
盖尔语 - 苏格兰	gd	0x043C	1084
德语 - 标准	de	0x0407	1031
德语 - 奥地利	de-at	0x0C07	3079
德语 - 列支敦士登	de-li	0x1407	5127
德语 - 卢森堡	de-lu	0x1007	4103
德语 - 瑞士	de-ch	0x0807	2055
希腊语	el	0x0408	1032
Hebrew	he	0x040D	1037
印地语	hi	0x0439	1081
匈牙利语	hu	0x040E	1038
冰岛语	is	0x040F	1039
印度尼西亚语	in	0x0421	1057
意大利语 - 标准	it	0x0410	1040
意大利语 - 瑞士	it-ch	0x0810	2064
日语	ja	0x0411	1041
朝鲜语	ko	0x0412	1042
拉脱维亚语	lv	0x0426	1062
立陶宛语	lt	0x0427	1063
马其顿语	mk	0x042F	1071
马来语 - 马来西亚	ms	0x043E	1086
马耳他语	mt	0x043A	1082
挪威语 - 博克马尔	no	0x0414	1044
波兰语	pl	0x0415	1045
葡萄牙语 - 标准	pt	0x0816	2070
葡萄牙语 - 巴西	pt-br	0x0416	1046
拉托-罗马语	rm	0x0417	1047
罗马尼亚语	ro	0x0418	1048
罗马尼亚语 - 摩尔多瓦	ro-mo	0x0818	2072
俄语	ru	0x0419	1049
俄语 - 摩尔多瓦	ru-mo	0x0819	2073
塞尔维亚语 - 塞瑞利克	sr	0x0C1A	3098
Setsuana	tn	0x0432	1074
斯洛文尼亚语	sl	0x0424	1060
斯洛伐克语	sk	0x041B	1051
索布语	sb	0x042E	1070
西班牙语 - 标准	es	0x040A	1034
西班牙语 - 阿根廷	es-ar	0x2C0A	11274
西班牙语 - 玻利维亚	es-bo	0x400A	16394
西班牙语 - 智利	es-cl	0x340A	13322
西班牙语 - 哥伦比亚	es-co	0x240A	9226
西班牙语 - 哥斯达黎加	es-cr	0x140A	5130
西班牙语 - 多米尼加共和国	es-do	0x1C0A	7178
西班牙语 - 厄瓜多尔	es-ec	0x300A	12298
西班牙语 - 危地马拉	es-gt	0x100A	4106
西班牙语 - 洪都拉斯	es-hn	0x480A	18442
西班牙语 - 墨西哥	es-mx	0x080A	2058
西班牙语 - 尼加拉瓜	es-ni	0x4C0A	19466
西班牙语 - 巴拿马	es-pa	0x180A	6154
西班牙语 - 秘鲁	es-pe	0x280A	10250
西班牙语 - 波多黎各	es-pr	0x500A	20490
西班牙语 - 巴拉圭	es-py	0x3C0A	15370
西班牙语 - 萨尔瓦多	es-sv	0x440A	17418
西班牙语 - 乌拉圭	es-uy	0x380A	14346
西班牙语 - 委内瑞拉	es-ve	0x200A	8202
苏图语	sx	0x0430	1072
瑞典语	sv	0x041D	1053
瑞典语 - 芬兰	sv-fi	0x081D	2077
泰语	th	0x041E	1054
土耳其语	tr	0x041F	1055
汤加语	ts	0x0431	1073
乌克兰语	uk	0x0422	1058
乌尔都语 - 巴基斯坦	ur	0x0420	1056
越南语	vi	0x042A	1066
科萨语	xh	0x0434	1076
意第绪语	ji	0x043D	1085
祖鲁语	zu	0x0435	1077