今天网友问到了这个问题：

＂比如：我在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