连分都没有?......也罢Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integerdim lanid as integer
lanid=GetSystemDefaultLangID() 
返回lanid1025:阿拉伯语 (沙特阿拉伯)
1026:保加利亚语
1027:加泰罗尼亚语
1028:中文 (台湾)
1029:捷克语
1030:丹麦语
1031:德语 (标准)
1032:希腊语
1033:英语 (美国)
1034:西班牙语 (传统风格)
1035:芬兰语
1036:法语 (标准)
1037:希伯来语
1038:匈牙利语
1039:冰岛语
1040:意大利语 (标准)
1041:日语
1042:朝鲜语
1043:荷兰语 (标准)
1044:挪威 (博克马尔语)
1045:波兰语
1046:葡萄牙语 (巴西)
1048:罗马尼亚语
1049:俄语
1050:克罗地亚语
1051:斯洛伐克语
1052:阿尔巴尼亚语
1053:瑞典语
1054:泰语
1055:土耳其语
1056:乌尔都语
1057:印度尼西亚语
1058:乌克兰语
1059:白俄罗斯语
1060:斯洛文尼亚语
1061:爱沙尼亚语
1062:拉脱维亚语
1063:立陶宛语
1065:波斯语
1066:越南语
1069:巴斯克语
1071:马其顿语(FYROM)
1078:南非荷兰语
1080:法罗语
1081:印地语
1086:马来语 (马来西亚)
1089:斯瓦希里语
2049:阿拉伯语 (伊拉克)
2052:中文 (PRC)
2055:德语 (瑞士)
2057:英语 (英国)
2058:西班牙语 (墨西哥)
2060:法语 (比利时)
2064:意大利语 (瑞士)
2066:朝鲜语 (Johab)
2067:荷兰语 (比利时)
2068:挪威语 (尼诺斯克语)
2070:葡萄牙语 (标准)
2074:塞尔维亚语 (拉丁语系)
2077:瑞士语 (芬兰)
2087:立陶宛语 (古典)
2110:马来语 (文莱达鲁萨兰国)
3073:阿拉伯语 (埃及)
3076:中文 (香港)
3079:德语 (奥地利)
3081:英语 (澳大利亚)
3082:西班牙语 (国际型)
3084:法语 (加拿大)
3098:塞尔维亚语 (西里尔字母)
4097:阿拉伯语 (利比亚)
4100:中文 (新加坡)
4103:德语 (卢森堡)
4105:英语 (加拿大)
4106:西班牙语 (危地马拉)
4108:法语 (瑞士)
5121:阿拉伯语 (阿尔及利亚)
5124:中文 (澳门)
5127:德语 (列支敦士登)
5129:英语 (新西兰)
5130:西班牙语 (哥斯达黎加)
5132:法语 (卢森堡)
6145:阿拉伯语 (摩洛哥)
6153:英语 (爱尔兰)
6154:西班牙语 (巴拿马)
6156:法语 (摩纳哥)
7169:阿拉伯语 (突尼斯)
7177:英语 (南非)
7178:西班牙语 (多米尼加共和国)
8193:阿拉伯语 (阿曼)
8201:英语 (牙买加)
8202:西班牙语 (委内瑞拉)
9217:阿拉伯语 (也门)
9225:英语 (加勒比海)
9226:西班牙语 (哥伦比亚)
10241:阿拉伯语 (叙利亚)
10249:英语 (伯利兹)
10250:西班牙语 (秘鲁)
11265:阿拉伯语 (约旦)
11273:英语 (特立尼达)
11274:西班牙语 (阿根廷)
12289:阿拉伯语 (黎巴嫩)
12297:英语 (津巴布韦)
12298:西班牙语 (厄瓜多尔)
13313:阿拉伯语 (科威特)
13321:英语 (菲律宾)
13322:西班牙语 (智利)
14337:阿拉伯语 (阿拉伯联合酋长国)
14346:西班牙语 (乌拉圭)
15361:阿拉伯语 (巴林)
15370:西班牙语 (巴拉圭)
16385:阿拉伯语 (卡塔尔)
16394:西班牙语 (玻利维亚)
17418:西班牙语 (萨尔瓦多)
18442:西班牙语 (洪都拉斯)
19466:西班牙语 (尼加拉瓜)
20490:西班牙语 (波多黎各)