今天网友问到了这个问题：
＂比如：我在win2000中文版上运行时可以获取操作系统的语言版本为中文，在win2000英文版上运行时，知道是英文版＂

这里我写了个函数，方便使用．（只取得简体，繁体，和英文，其它的自己加吧 ^_^）代码如下：

http://community.csdn.net/Expert/topic/3389/3389759.xml?temp=.2974665

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Sub Command1_Click()
MsgBox GetOsType, vbOKOnly, "提示"
End Sub

Function GetOsType() As String
Dim ret As String
Select Case Hex(GetSystemDefaultLCID)
Case 804:
ret = "中文简体(大陆)"
Case 404:
ret = "中文繁体(台湾)"
Case 409:
ret = "英文"
Case Else:
ret = "其它语言系统"
End Select
GetOsType = ret
End Function




h8JHTML5中文学习网 - HTML5先行者学习网
h8JHTML5中文学习网 - HTML5先行者学习网