CSDN博客

img tanaya
博客专家

如何获取操作系统的语言类型

发表于2004/9/20 11:59:00  1938人阅读

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

'-------------------------------------------
' 转载请注明出处
' 作者:唐细刚
' 邮箱:tanaya@163.com
'-------------------------------------------

0 0

相关博文

我的热门文章

img
取 消
img