Windows 我怎样才能得到一个未来的用户友好型操作系统版本？

这个问题的答案非常有用，Cody Gray使用GetVersionEx和Select Case语句将Windows版本作为用户友好的字符串返回

然而，给出的代码是有限的，因为所有返回值都是硬编码的，这意味着它不是未来的证明，需要在每次新版本的Windows出现时重写，例如Windows 8

除了使用GetVersionEx和Select Case语句之外，是否还有其他选项可以检索用户友好的操作系统名称，该名称也将是相对可靠的未来版本？

可用于提取所需数据，如下所示：

Public Function GetFriendlyOSVersion() As String
    Dim query As String
    query = "SELECT Caption FROM Win32_OperatingSystem"
    Dim results As Object
    Set results = GetObject("Winmgmts:").ExecQuery(query)
    Dim info As Object
    For Each info In results
        GetFriendlyOSVersion = info.Caption
    Next info
End Function

---

究竟是什么让你认为未来版本的Windows不支持GetVersionEx？@HansPassant如果你看看答案和示例代码，你会发现在使用GetVersionEx之后，你必须用硬编码的值执行一个复杂的Select语句。因此，每次新版本的Windows出现时，你都必须修改代码。这是关于显示操作系统的市场名称（“Windows超现代Spiffy倒数第二版Lunar Edition”）？不是出于某种功能原因检测平台？是的，这就是我所说的“用户友好”的意思@HansPassant GetVersionEx现在被弃用了：同样的问题也困扰着我，测试标题是我知道的唯一选择，但它安全吗？是的，我现在已经尝试过了，并在生产代码中实现了它，没有任何问题。啊，我知道它是有效的，只是不确定标题是否是只读属性？我不确定它有多大帮助。当我在Windows10技术预览版上运行它时，我得到了

MicrosoftWindowsTechnicalPreview

。