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

[jumleres]

在程序中如何知道操作统是win98还是WIN2000及...,是简体中文的还是繁体中文的,还是英文....
能否告诉我在代码中如何得到,是否用到API(最好能有源代码),或者在哪里能够得到解答.
email:[e-mail]

[crystal_heart]

我也想知道

[Simon刚刚好]

获取当前系统平台
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As _
OSVERSIONINFO) As Boolean

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

Private 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

[jumleres]

谢！那如何知道是简体还是繁体、英文版。。。。

[Simon刚刚好]

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

[jumleres]

谢了。我的QQ是57523208。交个朋友怎样？