host/winhost/Imports.bas

Attribute VB_Name = "Imports"


#If Win32 Then
       
Public Declare Function GetVersionExA Lib "kernel32" _
            (lpVersionInformation As OSVERSIONINFO) As Integer
       
       Type SYSTEM_INFO
               dwOemID As Long
               dwPageSize As Long
               lpMinimumApplicationAddress As Long
               lpMaximumApplicationAddress As Long
               dwActiveProcessorMask As Long
               dwNumberOrfProcessors As Long
               dwProcessorType As Long
               dwAllocationGranularity As Long
               dwReserved As Long
       End Type
       Type OSVERSIONINFO
               dwOSVersionInfoSize As Long
               dwMajorVersion As Long
               dwMinorVersion As Long
               dwBuildNumber As Long
               dwPlatformId As Long
               szCSDVersion As String * 128
       End Type
       Type MEMORYSTATUS
               dwLength As Long
               dwMemoryLoad As Long
               dwTotalPhys As Long
               dwAvailPhys As Long
               dwTotalPageFile As Long
               dwAvailPageFile As Long
               dwTotalVirtual As Long
               dwAvailVirtual As Long
       End Type

       ' For uptime
       Public Declare Function GetTickCount Lib "kernel32" () As Long

       Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
          (lpVersionInformation As OSVERSIONINFO) As Long
       Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _
          MEMORYSTATUS)
       Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As _
          SYSTEM_INFO)

       Public Const PROCESSOR_INTEL_386 = 386
       Public Const PROCESSOR_INTEL_486 = 486
       Public Const PROCESSOR_INTEL_PENTIUM = 586
       Public Const PROCESSOR_MIPS_R4000 = 4000
       Public Const PROCESSOR_ALPHA_21064 = 21064
   #Else
      ' Constants for GetWinFlags.
      Global Const WF_CPU286 = &H2
      Global Const WF_CPU386 = &H4
      Global Const WF_CPU486 = &H8
      Global Const WF_80x87 = &H400
      Global Const WF_STANDARD = &H10
      Global Const WF_ENHANCED = &H20
      Global Const WF_WINNT = &H4000

      ' Type for SystemHeapInfo.
      Type SYSHEAPINFO
         dwSize As Long
         wUserFreePercent As Integer
         wGDIFreePercent As Integer
         hUserSegment As Integer
         hGDISegment As Integer
      End Type

      Declare Function GetVersion Lib "kernel32" () As Long
      Declare Function GetWinFlags Lib "kernel32" () As Long
      'Enter each of the following Declare statements as one, single line:
      Declare Function GetFreeSpace Lib "kernel32" (ByVal wFlags As Integer) As Long
      Declare Function GlobalCompact Lib "kernel32" (ByVal dwMinFree As Long) As Long
      Declare Function SystemHeapInfo Lib "toolhelp.dll" (shi As SYSHEAPINFO) As Integer
   #End If
   
   
         Public Function GetVersion() As String
            Dim osinfo As OSVERSIONINFO
            Dim retvalue As Integer

            osinfo.dwOSVersionInfoSize = 148
            osinfo.szCSDVersion = Space$(128)
            retvalue = GetVersionExA(osinfo)

            With osinfo
            Select Case .dwPlatformId
               Case 1
                  If .dwMinorVersion = 0 Then
                     GetVersion = "Windows 95"
                  ElseIf .dwMinorVersion = 10 Then
                     GetVersion = "Windows 98"
                  End If
               Case 2
                  If .dwMajorVersion = 3 Then
                     GetVersion = "Windows NT 3.51"
                  ElseIf .dwMajorVersion = 4 Then
                     GetVersion = "Windows NT 4.0"
                  ElseIf .dwMajorVersion = 5 Then
                     GetVersion = "Windows 2000"
                  End If
               Case Else
                  GetVersion = "Failed"
            End Select
            End With
         End Function

Revision:	1.4
Committed:	Fri Mar 28 16:30:35 2003 UTC (21 years, 8 months ago) by tdb
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.3:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	Removed some un-used code from CVS. We can always resurrect this later if someone feels they want to work on it. Gone are the old perl ihost which isn't needed now, winhost which is broken and shows no sign of being fixed, and DBReporter. If someone wants to revive them, I'll undelete them :-)
#	User	Rev	Content
1	pjm2	1.1	Attribute VB_Name = "Imports"
2
3
4			#If Win32 Then
5
6			Public Declare Function GetVersionExA Lib "kernel32" _
7			(lpVersionInformation As OSVERSIONINFO) As Integer
8
9			Type SYSTEM_INFO
10			dwOemID As Long
11			dwPageSize As Long
12			lpMinimumApplicationAddress As Long
13			lpMaximumApplicationAddress As Long
14			dwActiveProcessorMask As Long
15			dwNumberOrfProcessors As Long
16			dwProcessorType As Long
17			dwAllocationGranularity As Long
18			dwReserved As Long
19			End Type
20			Type OSVERSIONINFO
21			dwOSVersionInfoSize As Long
22			dwMajorVersion As Long
23			dwMinorVersion As Long
24			dwBuildNumber As Long
25			dwPlatformId As Long
26			szCSDVersion As String * 128
27			End Type
28			Type MEMORYSTATUS
29			dwLength As Long
30			dwMemoryLoad As Long
31			dwTotalPhys As Long
32			dwAvailPhys As Long
33			dwTotalPageFile As Long
34			dwAvailPageFile As Long
35			dwTotalVirtual As Long
36			dwAvailVirtual As Long
37			End Type
38
39	pjm2	1.2	' For uptime
40			Public Declare Function GetTickCount Lib "kernel32" () As Long
41
42	pjm2	1.1	Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
43			(lpVersionInformation As OSVERSIONINFO) As Long
44			Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _
45			MEMORYSTATUS)
46			Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As _
47			SYSTEM_INFO)
48
49			Public Const PROCESSOR_INTEL_386 = 386
50			Public Const PROCESSOR_INTEL_486 = 486
51			Public Const PROCESSOR_INTEL_PENTIUM = 586
52			Public Const PROCESSOR_MIPS_R4000 = 4000
53			Public Const PROCESSOR_ALPHA_21064 = 21064
54			#Else
55			' Constants for GetWinFlags.
56			Global Const WF_CPU286 = &H2
57			Global Const WF_CPU386 = &H4
58			Global Const WF_CPU486 = &H8
59			Global Const WF_80x87 = &H400
60			Global Const WF_STANDARD = &H10
61			Global Const WF_ENHANCED = &H20
62			Global Const WF_WINNT = &H4000
63
64			' Type for SystemHeapInfo.
65			Type SYSHEAPINFO
66			dwSize As Long
67			wUserFreePercent As Integer
68			wGDIFreePercent As Integer
69			hUserSegment As Integer
70			hGDISegment As Integer
71			End Type
72
73	pjm2	1.3	Declare Function GetVersion Lib "kernel32" () As Long
74	pjm2	1.1	Declare Function GetWinFlags Lib "kernel32" () As Long
75			'Enter each of the following Declare statements as one, single line:
76			Declare Function GetFreeSpace Lib "kernel32" (ByVal wFlags As Integer) As Long
77			Declare Function GlobalCompact Lib "kernel32" (ByVal dwMinFree As Long) As Long
78			Declare Function SystemHeapInfo Lib "toolhelp.dll" (shi As SYSHEAPINFO) As Integer
79			#End If
80
81
82	pjm2	1.3	Public Function GetVersion() As String
83	pjm2	1.1	Dim osinfo As OSVERSIONINFO
84			Dim retvalue As Integer
85
86			osinfo.dwOSVersionInfoSize = 148
87			osinfo.szCSDVersion = Space$(128)
88			retvalue = GetVersionExA(osinfo)
89
90			With osinfo
91			Select Case .dwPlatformId
92			Case 1
93			If .dwMinorVersion = 0 Then
94	pjm2	1.3	GetVersion = "Windows 95"
95	pjm2	1.1	ElseIf .dwMinorVersion = 10 Then
96	pjm2	1.3	GetVersion = "Windows 98"
97	pjm2	1.1	End If
98			Case 2
99			If .dwMajorVersion = 3 Then
100	pjm2	1.3	GetVersion = "Windows NT 3.51"
101	pjm2	1.1	ElseIf .dwMajorVersion = 4 Then
102	pjm2	1.3	GetVersion = "Windows NT 4.0"
103	pjm2	1.1	ElseIf .dwMajorVersion = 5 Then
104	pjm2	1.3	GetVersion = "Windows 2000"
105	pjm2	1.1	End If
106			Case Else
107	pjm2	1.3	GetVersion = "Failed"
108	pjm2	1.1	End Select
109			End With
110			End Function
111