Sysinfo 应用实例 1：检测当前的操作系统及其版本

使用 CommandButton 控件和 OSPlatform、OSVersion 和 OSBuild 属性能够检测并显示当前的操作系统平台、版本和编译序号。要测试这一点，只需在窗体中添加一个 CommandButton 控件，并在 cmdDetectOS_Click 事件中添加下面的代码：

Private Sub cmdDetectOS_Click()
   Dim MsgEnd As String
   Select Case sysDetectOS.OSPlatform
      Case 0
         MsgEnd = "不能确定的"
      Case 1
         MsgEnd = "Windows 95, ver. "& _ 
CStr(sysDetectOS.OSVersion) & "(" & _ 
CStr(sysDetectOS.OSBuild) & ")"
      Case 2
         MsgEnd = "Windows NT, ver. " & _ 
CStr(sysDetectOS.OSVersion) & "(" & _ 
CStr(sysDetectOS.OSBuild) & ")"
   End Select
   MsgBox "系统：" & MsgEnd
End Sub 

详细信息   请参阅 OSPlatform、OSVersion 和 OSBuild 属性。