Lines Matching refs:osv
181 Dim osv As OSVERSIONINFO variable
183 osv.OSVSize = Len(osv)
185 If GetVersionEx(osv) = 1 Then
187 Select Case osv.PlatformID 'win 32
195 Select Case osv.dwVerMinor
203 If osv.dwBuildNumber >= 2222 Then 'second edition
227 Dim osv As OSVERSIONINFO variable
232 osv.OSVSize = Len(osv)
234 If GetVersionEx(osv) = 1 Then
237 WIN.PlatformID = osv.PlatformID
239 Select Case osv.PlatformID
243 Select Case osv.dwVerMajor
246 Select Case osv.dwVerMinor
255 Select Case osv.dwVerMinor
265 WIN.VersionNo = osv.dwVerMajor & "." & osv.dwVerMinor
268 WIN.BuildNo = (osv.dwBuildNumber And &HFFFF&)
273 pos = InStr(osv.szCSDVersion, Chr$(0))
275 WIN.ServicePack = Left$(osv.szCSDVersion, pos - 1)