Office中国论坛/Access中国论坛

标题: 怎么知道我的系统是2000还是98 [打印本页]

作者: xinbao 时间: 2002-5-22 18:40
标题: 怎么知道我的系统是2000还是98
怎么知道我的系统是2000还是98
用什么API

作者: MsAccess 时间: 2002-5-22 21:53
标题: 怎么知道我的系统是2000还是98
Private Declare Function GetVersionEx Lib "kernel32.dll" _
Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

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 Sub CmdGetOs_Click()
'目的: 取得 OS 信息
'作者: Ms Access
Dim os As OSVERSIONINFO
Dim retval As Long
Dim OsVer As String

os.dwOSVersionInfoSize = Len(os)
retval = GetVersionEx(os)

Select Case os.dwPlatformId
   Case 0
      OsVer = "Windows 3.x"
   Case 1
      OsVer = "Windows 95 或 98"
   Case 2
      OsVer = "Windows NT"
End Select
MsgBox "你的操作系统为 " & OsVer, vbInformation, "Ms Access"
End Sub

作者: chaojianan 时间: 2009-4-13 13:22
请问在nt下如何区分2000和xp。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)