一个简单的方法:procedure Tform1.getlanguageId(Sender: TObject); var LanId : word; begin lanId := GetSystemDefaultLangID; if (lanId = 2052) or (lanId = 1028) then begin if lanid = 2052 then lan := 'SC'; if lanId = 1028 then lan := 'TC'; end else lan := 'E'; end;
然后自己判断吧。
具体看MSDN把!
var
LanId : word;
begin
lanId := GetSystemDefaultLangID; if (lanId = 2052) or (lanId = 1028) then
begin
if lanid = 2052 then
lan := 'SC';
if lanId = 1028 then
lan := 'TC';
end
else
lan := 'E';
end;
阿拉伯语(沙特阿拉伯)=$00000401
保加利亚语=$00000402
加泰隆语=$00000403
中文(台湾)=$00000404
捷克语=$00000405
丹麦语=$00000406
德语(德国)=$00000407
希腊语=$00000408
英语(美国)=$00000409
西班牙语(传统)=$0000040A
芬兰语=$0000040B
法语(法国)=$0000040C
希伯来语=$0000040D
匈牙利语=$0000040E
冰岛语=$0000040F
意大利语(意大利)=$00000410
日语=$00000411
朝鲜语=$00000412
荷兰语(荷兰)=$00000413
挪威语(伯克梅尔)=$00000414
波兰语=$00000415
葡萄牙语(巴西)=$00000416
罗马尼亚语=$00000418
俄语=$00000419
克罗地亚语=$0000041A
斯洛伐克语=$0000041B
阿尔巴尼亚语=$0000041C
瑞典语=$0000041D
泰语=$0000041E
土耳其语=$0000041F
乌都语=$00000420
印度尼西亚语=$00000421
乌克兰语=$00000422
比利时语=$00000423
斯洛文尼亚语=$00000424
爱沙尼亚语=$00000425
拉脱维亚语=$00000426
立陶宛语=$00000427
法斯语=$00000429
越南语=$0000042A
亚美尼亚语=$0000042B
阿塞里语(拉丁文)=$0000042C
巴士克语=$0000042D
马其顿语(FYROM)=$0000042F
南非语=$00000436
乔治亚语=$00000437
法罗语=$00000438
印地语=$00000439
马来语(马来西亚)=$0000043E
哈萨克语=$0000043F
斯瓦希里语=$00000441
乌兹别克语(拉丁文)=$00000443
塔但语=$00000444
泰米尔语=$00000449
马拉提语=$0000044E
梵文=$0000044F
孔卡尼语=$00000457
阿拉伯语(伊拉克)=$00000801
中文(中国)=$00000804
德语(瑞士)=$00000807
英语(英国)=$00000809
西班牙语(墨西哥)=$0000080A
法语(比利时)=$0000080C
意大利语(瑞士)=$00000810
荷兰语(比利时)=$00000813
挪威语(尼诺斯克)=$00000814
葡萄牙语(葡萄牙)=$00000816
塞尔维亚语(拉丁文)=$0000081A
瑞典语(芬兰)=$0000081D
阿塞里语(西里尔文)=$0000082C
马来语(文莱达鲁萨兰)=$0000083E
乌兹别克语(西里尔文)=$00000843
阿拉伯语(埃及)=$00000C01
中文(香港特别行政区)=$00000C04
德语(奥地利)=$00000C07
英语(澳大利亚)=$00000C09
西班牙语(国际)=$00000C0A
法语(加拿大)=$00000C0C
塞尔维亚语(西里尔文)=$00000C1A
阿拉伯语(利比亚)=$00001001
中文(新加坡)=$00001004
德语(卢森堡)=$00001007
英语(加拿大)=$00001009
西班牙语(危地马拉)=$0000100A
法语(瑞士)=$0000100C
阿拉伯语(阿尔及利亚)=$00001401
中文(澳门特别行政区)=$00001404
德语(列支敦士登)=$00001407
英语(新西兰)=$00001409
西班牙语(哥斯达黎加)=$0000140A
法语(卢森堡)=$0000140C
阿拉伯语(摩洛哥)=$00001801
英语(爱尔兰)=$00001809
西班牙语(巴拿马)=$0000180A
法语(摩纳哥)=$0000180C
阿拉伯语(突尼斯)=$00001C01
英语(南非)=$00001C09
西班牙语(多米尼加共和国)=$00001C0A
阿拉伯语(阿曼)=$00002001
英语(牙买加)=$00002009
西班牙语(委内瑞拉)=$0000200A
阿拉伯语(也门)=$00002401
英语(加勒比海)=$00002409
西班牙语(哥伦比亚)=$0000240A
阿拉伯语(叙利亚)=$00002801
英语(伯利兹)=$00002809
西班牙语(秘鲁)=$0000280A
阿拉伯语(约旦)=$00002C01
英语(特立尼达)=$00002C09
西班牙语(阿根廷)=$00002C0A
阿拉伯语(黎巴嫩)=$00003001
英语(津巴布韦)=$00003009
西班牙语(厄瓜多尔)=$0000300A
阿拉伯语(科威特)=$00003401
英语(菲律宾)=$00003409
西班牙语(智利)=$0000340A
阿拉伯语(阿联酋)=$00003801
西班牙语(乌拉圭)=$0000380A
阿拉伯语(巴林)=$00003C01
西班牙语(巴拉圭)=$00003C0A
阿拉伯语(卡塔尔)=$00004001
西班牙语(玻利维亚)=$0000400A
西班牙语(萨尔瓦多)=$0000440A
西班牙语(洪都拉斯)=$0000480A
西班牙语(尼加拉瓜)=$00004C0A
西班牙语(波多黎各)=$0000500A