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

|