isnt.bas

葡萄木马防火墙

Attribute VB_Name = "isNT"
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type
Private Const VER_PLATFORM_WIN32_NT = 2

Public Function isNt() As Boolean
Dim osv As OSVERSIONINFO
osv.dwOSVersionInfoSize = 148
GetVersionEx osv
If osv.dwPlatformId = VER_PLATFORM_WIN32_NT Then isNt = True Else isNt = False
End Function