module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 19 行

Module Module1
    Structure OSVERSIONINFO
        Dim dwOSVersionInfoSize As Integer
        Dim dwMajorVersion As Integer
        Dim dwMinorVersion As Integer
        Dim dwBuildNumber As Integer
        Dim dwPlatformId As Integer
        <VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public szCSDVersion As String
    End Structure
    Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Integer
    Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Integer) As Integer
    Public Const SM_CLEANBOOT As Short = 67
    Public Const SM_DEBUG As Short = 22
    Public Const SM_SLOWMACHINE As Short = 73
    Public Const VER_PLATFORM_WIN32s As Short = 0
    Public Const VER_PLATFORM_WIN32_WINDOWS As Short = 1
    Public Const VER_PLATFORM_WIN32_NT As Short = 2
End Module