作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

今天网友问到了这个问题：
＂比如：我在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

相关软件：