home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / SendMail_W342761192001.psc / mVersion.bas < prev    next >
Encoding:
BASIC Source File  |  2000-08-29  |  2.1 KB  |  67 lines
  1. Attribute VB_Name = "mVersion"
  2. Option Explicit
  3.  
  4. Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
  5.                      (ByRef lpVersionInformation As OSVERSIONINFO) As Long
  6.  
  7. Public Type OSVERSIONINFO
  8.     dwOSVersionInfoSize As Long
  9.     dwMajorVersion As Long
  10.     dwMinorVersion As Long
  11.     dwBuildNumber As Long
  12.     dwPlatformId As Long
  13.     szCSDVersion As String * 128
  14. End Type
  15.  
  16. Public Const VER_PLATFORM_WIN32s = 0
  17. Public Const VER_PLATFORM_WIN32_WINDOWS = 1
  18. Public Const VER_PLATFORM_WIN32_NT = 2
  19.  
  20. Global IsNT4 As Boolean
  21. Global IsNT3 As Boolean
  22. Global Is2000 As Boolean
  23. Global Is95 As Boolean
  24. Global Is95B As Boolean
  25. Global Is98 As Boolean
  26. Global Is98se As Boolean
  27. Global IsME As Boolean
  28.  
  29. Public Sub SetWinVersion()
  30. Dim version As OSVERSIONINFO
  31.  
  32.     version.dwOSVersionInfoSize = Len(version)
  33.     GetVersionEx version
  34.  
  35.     If version.dwPlatformId = 1 And version.dwMinorVersion = 10 And LoWord(version.dwBuildNumber) = 1998 Then
  36.         Is98 = True
  37.     ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 10 And LoWord(version.dwBuildNumber) = 2222 Then
  38.         Is98se = True
  39.     ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 90 And LoWord(version.dwBuildNumber) = 3000 Then
  40.         IsME = True
  41.     ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 0 And LoWord(version.dwBuildNumber) = 950 Then
  42.         Is95 = True
  43.     ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 0 And LoWord(version.dwBuildNumber) = 1111 Then
  44.         Is95B = True
  45.     End If
  46.             
  47.     If version.dwPlatformId = 2 And version.dwMajorVersion = 3 Then
  48.         IsNT3 = True
  49.     ElseIf version.dwPlatformId = 2 And version.dwMajorVersion = 4 Then
  50.         IsNT4 = True
  51.     ElseIf version.dwPlatformId = 2 And version.dwMajorVersion = 5 Then
  52.         Is2000 = True
  53.     End If
  54.     
  55. End Sub
  56.  
  57. Private Function LoWord(lngIn As Long) As Integer
  58.    If (lngIn And &HFFFF&) > &H7FFF Then
  59.       LoWord = (lngIn And &HFFFF&) - &H10000
  60.    Else
  61.       LoWord = lngIn And &HFFFF&
  62.    End If
  63. End Function
  64.  
  65.  
  66.  
  67.