Question

我正在使用OSVERSIONINFO检查我的vb6应用程序中的操作系统。但我无法区分Windows 7和Windows Server 2008 R2，因为它们具有相同的版本号，dwMajorVersion和dwMinorVersion。那么如何区分这些。我认为可以使用其他方法在vb.net中完成。但是如何在vb6中完成它？

Answer 1

正如Xearinox在上述评论中指出的那样，OSVERSIONINFOEX会返回更多信息。

特别是，您可以检查wProductType以确定是否设置了VER_NT_WORKSTATION（0x0000001）。如果是，则机器正在运行客户端操作系统，否则为服务器。

OSVERSIONINFO MSDN entry的备注部分中的图表甚至有一个列，指出使用该结构项检测各种操作系统。

Answer 2

右键单击工具栏＆gt;组件和添加＆gt; Microsoft SysControl 6.0。双击要在表单上添加的SysInfo按钮并使用此代码

Private Sub Form_Load()
    Dim HancyRockz as string
    HancyRockz = "OsVersion :- " & SysInfo1.OSVersion & " / Built " & SysInfo1.OSBuild
    Text1.Text=HancyRockz
End Sub

用VB6代码查找windows OS版本

2 个答案: