clssystem.cls

高级卸载工具

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'★★★★★****************************★★★★★**********************★★★★★
'金诺VB园-收藏整理
'本站是专注于VB和VBNET编程的源码下载站
'发布日期：2008-3-14 22:00:47
'网    站：http://www.vbget.com/          (金诺VB园)
'网    站：http://www.vbget.com/daohan/   (VB编程网址导航)
'E-Mail  ：[e-mail]
'QQ      ：158676144
'源码作者：如果您有VB商业源码需要获得收益，本站将有VIP收费下载频道可供你发布!
'         您有权定价;改价;删除;及即时查看下载量(即收益)，所有收益全部归您！
'         本站将在双方协商的一个金额周期内打款到作者帐户中，您只需负责打款费用！
'         本站只作为一个平台提供最新VB源码咨讯和源码下载！
'本注释由<站长工具之智能注释>软件自动添加！金诺VB园有此软件下载！
'★★★★★****************************★★★★★**********************★★★★★


Option Explicit
Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Public Function sysInfo() As String
On Error GoTo errHandle:
    Dim osinfo As OSVERSIONINFO, retvalue As Integer, strVersion As String
   
    osinfo.dwOSVersionInfoSize = 148
    osinfo.szCSDVersion = Space$(128)
    retvalue = GetVersionExA(osinfo)

    With osinfo
    Select Case .dwPlatformId
        Case 1
            Select Case .dwMinorVersion
                Case 0
                    strVersion = "Microsoft Windows 95"
                Case 10
                    If .dwBuildNumber >= 2183 Then
                        strVersion = "Microsoft Windows 98 Second Edition"
                    Else
                        strVersion = "Microsoft Windows 98"
                    End If
                Case 90
                    strVersion = "Microsoft Windows Millennium Edition"
            End Select
        Case 2
            Select Case .dwMajorVersion
                Case 3
                    strVersion = "Microsoft Windows NT 3.51"
                Case 4
                    strVersion = "Microsoft Windows NT 4.0"
                Case 5
                    If .dwMinorVersion = 0 Then
                        strVersion = "Microsoft Windows 2000"
                    ElseIf .dwMinorVersion = 1 Then
                        strVersion = "Microsoft Windows XP"
                    Else
                        strVersion = "Microsoft Windows Sever 2003"
                    End If
            End Select
    End Select
    End With
    
    sysInfo = strVersion
    Exit Function
errHandle:
    Err.Clear
    Resume Next
End Function