ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/experimental/host/vb_net_test/Imports.bas

Comparing experimental/host/vb_net_test/Imports.bas (file contents):
Revision 1.2 by pjm2, Mon Feb 26 08:53:48 2001 UTC vs.
Revision 1.3 by pjm2, Mon Feb 26 09:23:34 2001 UTC

#	Line 70 | Line 70 | Public Declare Function GetVersionExA Lib "kernel32" _
70		hGDISegment As Integer
71		End Type
72
73	<	Declare Function getVersion Lib "kernel32" Alias "GetVersion" () As Long
73	>	Declare Function GetVersion Lib "kernel32" () As Long
74		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
#	Line 79 | Line 79 | Public Declare Function GetVersionExA Lib "kernel32" _
79		#End If
80
81
82	<	Public Function getVersion() As String
82	>	Public Function GetVersion() As String
83		Dim osinfo As OSVERSIONINFO
84		Dim retvalue As Integer
85
#	Line 91 | Line 91 | Public Declare Function GetVersionExA Lib "kernel32" _
91		Select Case .dwPlatformId
92		Case 1
93		If .dwMinorVersion = 0 Then
94	<	getVersion = "Windows 95"
94	>	GetVersion = "Windows 95"
95		ElseIf .dwMinorVersion = 10 Then
96	<	getVersion = "Windows 98"
96	>	GetVersion = "Windows 98"
97		End If
98		Case 2
99		If .dwMajorVersion = 3 Then
100	<	getVersion = "Windows NT 3.51"
100	>	GetVersion = "Windows NT 3.51"
101		ElseIf .dwMajorVersion = 4 Then
102	<	getVersion = "Windows NT 4.0"
102	>	GetVersion = "Windows NT 4.0"
103		ElseIf .dwMajorVersion = 5 Then
104	<	getVersion = "Windows 2000"
104	>	GetVersion = "Windows 2000"
105		End If
106		Case Else
107	<	getVersion = "Failed"
107	>	GetVersion = "Failed"
108		End Select
109		End With
110		End Function

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines