isnt.bas

来自「提供进程监视[包括启动参数] 进程检测[包括启动参数] 网络连接检测 」· BAS 代码 · 共 19 行

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