home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / dwosvinf.cls < prev    next >
Encoding:
Text File  |  1996-02-19  |  2.4 KB  |  83 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwOSVersionInfo"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. ' Class dwOSVersionInfo
  11. ' Desaware API Class library
  12. ' Copyright (c) 1996 by Desaware Inc.
  13. ' All rights reserved
  14.  
  15. #If Win32 Then
  16. Private iOSVerInfo As OSVERSIONINFO
  17.  
  18. Public Sub setOSVERSIONINFO(dwOSVersionInfoSize As Long, dwMajorVersion As Long, dwMinorVersion As Long, dwBuildNumber As Long, dwPlatformId As Long, szCSDVersion As String)
  19.     iOSVerInfo.dwOSVersionInfoSize = dwOSVersionInfoSize
  20.     iOSVerInfo.dwMajorVersion = dwMajorVersion
  21.     iOSVerInfo.dwMinorVersion = dwMinorVersion
  22.     iOSVerInfo.dwBuildNumber = dwBuildNumber
  23.     iOSVerInfo.dwPlatformId = dwPlatformId
  24.     iOSVerInfo.szCSDVersion = szCSDVersion
  25. End Sub
  26.  
  27. Public Sub CopyToOSVERSIONINFO(ByVal lpOSVerInfo As Long)
  28.     Dim vi As OSVERSIONINFO
  29.     
  30.     If lpOSVerInfo = 0 Then RaiseError 5, "dwOSVersionInfo"
  31.     agCopyData iOSVerInfo, ByVal lpOSVerInfo, Len(vi)
  32. End Sub
  33.  
  34. Public Property Get dwOSVersionInfoSize() As Long
  35.     dwOSVersionInfoSize = iOSVerInfo.dwOSVersionInfoSize
  36. End Property
  37.  
  38. Public Property Let dwOSVersionInfoSize(vNewValue As Long)
  39.     iOSVerInfo.dwOSVersionInfoSize = vNewValue
  40. End Property
  41.  
  42. Public Property Get dwMajorVersion() As Long
  43.     dwMajorVersion = iOSVerInfo.dwMajorVersion
  44. End Property
  45.  
  46. Public Property Let dwMajorVersion(vNewValue As Long)
  47.     iOSVerInfo.dwMajorVersion = vNewValue
  48. End Property
  49.  
  50. Public Property Get dwMinorVersion() As Long
  51.     dwMinorVersion = iOSVerInfo.dwMinorVersion
  52. End Property
  53.  
  54. Public Property Let dwMinorVersion(vNewValue As Long)
  55.     iOSVerInfo.dwMinorVersion = vNewValue
  56. End Property
  57.  
  58. Public Property Get dwBuildNumber() As Long
  59.     dwBuildNumber = iOSVerInfo.dwBuildNumber
  60. End Property
  61.  
  62. Public Property Let dwBuildNumber(vNewValue As Long)
  63.     iOSVerInfo.dwBuildNumber = vNewValue
  64. End Property
  65.  
  66. Public Property Get dwPlatformId() As Long
  67.     dwPlatformId = iOSVerInfo.dwPlatformId
  68. End Property
  69.  
  70. Public Property Let dwPlatformId(vNewValue As Long)
  71.     iOSVerInfo.dwPlatformId = vNewValue
  72. End Property
  73.  
  74. Public Property Get szCSDVersion() As String
  75.     szCSDVersion = agGetStringFromLPSTR(iOSVerInfo.szCSDVersion)
  76. End Property
  77.  
  78. Public Property Let szCSDVersion(vNewValue As String)
  79.     iOSVerInfo.szCSDVersion = vNewValue
  80. End Property
  81.  
  82. #End If ' this class only exists in win32
  83.