如何获得 Windows 操作系统的版本

原创 2004年07月12日 11:18:00

 

很多时候我们需要知道Windows操作系统的版本,使用下面这个API函数可以做到。

Option Explicit

Private Declare Function GetVersionEx Lib "kernel32" 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        ' Maintenance string for PSS usage
    osName As String                    ' 我自己加的, 操作系统的名称
End Type

' 获得 Windows 操作系统的版本
' OSVERSIONINFO 结构中的 osName 返回操作系统的名称
Private Function GetWindowsVersion() As OSVERSIONINFO
    Dim ver As OSVERSIONINFO
    ver.dwOSVersionInfoSize = 148
    GetVersionEx ver
    With ver
        Select Case .dwPlatformId
            Case 1
                Select Case .dwMinorVersion
                    Case 0
                        .osName = "Windows 95"
                    Case 10
                        .osName = "Windows 98"
                    Case 90
                        .osName = "Windows Mellinnium"
                End Select
            Case 2
                Select Case .dwMajorVersion
                    Case 3
                        .osName = "Windows NT 3.51"
                    Case 4
                        .osName = "Windows NT 4.0"
                    Case 5
                        Select Case .dwMinorVersion
                            Case 0
                                .osName = "Windows 2000"
                            Case 1
                                .osName = "Windows XP"
                            Case 2
                                .osName = "Windows Server 2003"
                        End Select
                End Select
             Case Else
                .osName = "Failed"
        End Select
    End With
    GetWindowsVersion = ver
End Function

Private Sub Command1_Click()
    Dim ver As OSVERSIONINFO
    ver = GetWindowsVersion()
    With ver
        Debug.Print .osName, .dwMajorVersion, .dwMinorVersion, .dwBuildNumber, .dwPlatformId, .szCSDVersion
    End With
End Sub

 

*-------------------------------------------*<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

*  转载请通知作者并注明出处,CSDN欢迎您!   *

*  作者:卢培培(goodname008              *

*  邮箱:goodname008@163.com                *

*  专栏:http://blog.csdn.net/goodname008   *

*-------------------------------------------*

<em>如何操作系统</em>获取CPU信息

举报人: 被举报人: qiushuiheyu 举报的资源分: 2 *类型: *详细原因: 取  消 提  交 <em>如何操作系统</em>获取CPU信息 3 积分 立即下载 ...
  • 2018年04月14日 00:00

如何获得 Windows 操作系统的版本

  很多时候我们需要知道Windows操作系统的版本,使用下面这个API函数可以做到。 Option Explicit Private Declare Function GetVersionEx L...
  • goodname008
  • goodname008
  • 2004-07-12 11:18:00
  • 1351

获取 Windows 操作系统版本信息

// OSinfo.cpp : 定义控制台应用程序的入口点。#include "stdafx.h"#include #include #include "winsock.h"#include #inc...
  • iiprogram
  • iiprogram
  • 2007-10-11 03:13:00
  • 2864

windows 下c++获取操作系统版本名称笔记

windows通过c++获取操作系统主要分两种: 1、windows是8.1版本以下版本:获取操作系统可以通过windows提供的api中GetVersionEx函数来获取 2、windows是8...
  • koxiaozi1988
  • koxiaozi1988
  • 2017-08-31 11:17:00
  • 595

如何获取操作系统的语言版本

对于支持多语言版本的程序来说,可能需要根据操作系统的语言版本来加载不同的dll或rc,以实现多国语的目的。 至于如何加载dll或rc,请参考下面链接 http://blog.csdn.net/xi...
  • xiaofeizai1116
  • xiaofeizai1116
  • 2016-08-26 16:39:43
  • 900

获取<em>操作系统</em>信息

获取<em>操作系统</em>信息,判断是98或NT以及运行模式 ... C#精彩编程-<em>如何</em>获取<em>操作系统</em>版本信息 立即下载 上传者: joeyxiaobin 时间: 2011-11-16 综合评分: 4 积分/C币...
  • 2018年04月14日 00:00

获取Windows操作系统版本和位数

(1)获取系统位数32bit 64bit void CXXXDlg::GetSysBit(bool& bIs32Bit) { bIs32Bit=true; SYSTEM_INFO si; ...
  • shufac
  • shufac
  • 2016-08-04 22:46:24
  • 2151

获取Windows操作系统版本

为这点事找了在网上查了半天好多感觉不好用,最后选定这个以备自己和需要的朋友再乱翻了,代码是抄的 就在MFC里调用了下很好用 //----------------------------...
  • qq_23725883
  • qq_23725883
  • 2016-03-23 22:51:53
  • 148

js获取客户端操作系统

function detectOS() { var sUserAgent = navigator.userAgent; var isWin = (navigator.platform ...
  • canglingyue
  • canglingyue
  • 2016-07-08 14:52:44
  • 413

获取操作系统名称和版本

以下内容为转载,(最后内容为个人新增)  原文作者:http://blog.sina.com.cn/s/blog_49764fbb0100r29v.html 先看这个:http://tie...
  • yu_sn0w
  • yu_sn0w
  • 2016-09-09 16:29:44
  • 1403
收藏助手
不良信息举报
您举报文章:如何获得 Windows 操作系统的版本
举报原因:
原因补充:

(最多只允许输入30个字)