在程序中如何知道操作统是win98还是WIN2000及...,是简体中文的还是繁体中文的

Question

获取当前系统平台 
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End TypePrivate Declare Function GetVersionEx Lib "kernel32" Alias _
    "GetVersionExA" (lpVersionInformation As _
    OSVERSIONINFO) As BooleanPrivate Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2Private Sub Command1_Click()
    Dim Ver As OSVERSIONINFO
    Ver.dwOSVersionInfoSize = Len(Ver)
    Call GetVersionEx(Ver)
    If Ver.dwPlatformId = 0 Then
        MsgBox "Win32"
    ElseIf Ver.dwPlatformId = 1 Then
        MsgBox "Win95,Win98"
    ElseIf Ver.dwPlatformId = 2 Then
        MsgBox "Winnt/2K/XP"
    Else
        MsgBox "Error"
    End If
End Sub

Answer 1

Private Const DEFAULT_CHARSET = 1
Private Const SYMBOL_CHARSET = 2
Private Const SHIFTJIS_CHARSET = 128
Private Const HANGEUL_CHARSET = 129
Private Const CHINESEBIG5_CHARSET = 136
Private Const CHINESESIMPLIFIED_CHARSET = 134
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Sub SetProperFont(obj As Object)    
On Error GoTo ErrorSetProperFont  
  Select Case GetUserDefaultLCID  
  Case &H404 ' 繁体中文
   ........................
   Case &H804 ' 简体中文
   .........................
    Case Else 
  end select
ErrorSetProperFont: 
   Err.Number = Err
end sub