Attribute VB_Name = "GetSystemTypeMod"
'*************************************************************************
'**模 块 名：ModOnTop
'**说    明：判断操作系统类型
'**创 建 人：马大哈
'**日    期：2003年10月27日
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：V1.0
'*************************************************************************

Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Public Declare Function GetVersionEx Lib "kernel32" Alias _
    "GetVersionExA" (lpVersionInformation As _
    OSVERSIONINFO) As Boolean

Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

Public Function GetSystemType() As Long

Dim Ver As OSVERSIONINFO

Ver.dwOSVersionInfoSize = Len(Ver)

Call GetVersionEx(Ver)

If Ver.dwPlatformId = 0 Then
    '是WIN32
    GetSystemType = 0
ElseIf Ver.dwPlatformId = 1 Then
    'Win95或Win98"
    GetSystemType = 1
ElseIf Ver.dwPlatformId = 2 Then
    'NT内核系统(2000/XP等)
    GetSystemType = 2
Else
    '无法取得,出错......
    GetSystemType = -1
End If
    
End Function