Lines Matching refs:WIN
220 Public Function GetWinVersion(WIN As RGB_WINVER) As String
237 WIN.PlatformID = osv.PlatformID
240 Case VER_PLATFORM_WIN32s: WIN.VersionName = "Win32s"
241 Case VER_PLATFORM_WIN32_NT: WIN.VersionName = "Windows NT"
244 Case 4: WIN.VersionName = "Windows NT"
247 Case 0: WIN.VersionName = "Windows 2000"
248 Case 1: WIN.VersionName = "Windows XP"
256 Case 0: WIN.VersionName = "Windows 95"
257 Case 90: WIN.VersionName = "Windows ME"
258 Case Else: WIN.VersionName = "Windows 98"
265 WIN.VersionNo = osv.dwVerMajor & "." & osv.dwVerMinor
268 WIN.BuildNo = (osv.dwBuildNumber And &HFFFF&)
275 WIN.ServicePack = Left$(osv.szCSDVersion, pos - 1)
284 WIN.VersionName = "Windows 3.x"
286 GetWinVersion = WIN.VersionName