bshipps64_Code_OSV

BuildOSVersionString$

• Here are a couple functions for putting together an OS version string. I originally started with the GetOSVersionInfo function, then wrote BuildOSVersionString$ to convert the numbers returned by the former into a string like "Windows XP 5.1.2600 Service Pack 2".

 print BuildOSVersionString$() 
 end 
 
 function BuildOSVersionString$() 
 success = GetOSVersionInfo(major, minor, build, platform, csdv$) 
 
 if (success) then 
 win$ = "Windows " 
 platfrm$ = str$(platform) 
 major$ = str$(major) + "." 
 minor$ = str$(minor) + "." 
 build$ = str$(build) + " " 
 
 if (major = 6) then 
 os$ = "Vista or Server " + chr$(34) + "Longhorn" + chr$(34) 
 else 
 select case (minor) 
 case (0) 
 if (major = 5) then os$ = "2000" 
 if (major = 4) then os$ = word$("95 NT", platform) 
 
 case (1) 
 os$ = "XP" 
 
 case (2) 
 os$ = "Server 2003, Server 2003 R2, or XP Professional x64 Edition" 
 
 case (10) 
 os$ = "98" 
 
 case (90) 
 os$ = "Me" 
 end select 
 end if 
 
 os$ = os$ + " " 
 end if 
 
 BuildOSVersionString$ = win$ + os$ + major$ + minor$ + build$ + csdv$ 
 end function 
 
 
 function GetOSVersionInfo(byref majV, byref minV, byref build, byref plat, byref csdV$) 
 struct OSVERSIONINFOA,_ 
 dwOSVersionInfoSize as ulong,_ 
 dwMajorVersion as ulong,_ 
 dwMinorVersion as ulong,_ 
 dwBuildNumber as ulong,_ 
 dwPlatformID as ulong,_ 
 szCSDVersion as char[128] 
 
 OSVERSIONINFOA.dwOSVersionInfoSize.struct = len(OSVERSIONINFOA.struct) 
 
 calldll #kernel32, "GetVersionExA",_ 
 OSVERSIONINFOA as struct,_ 
 GetOSVersionInfo as boolean 
 
 if (GetOSVersionInfo) then 
 majV = OSVERSIONINFOA.dwMajorVersion.struct 
 minV = OSVERSIONINFOA.dwMinorVersion.struct 
 build = OSVERSIONINFOA.dwBuildNumber.struct 
 plat = OSVERSIONINFOA.dwPlatformID.struct 
 csdV$ = OSVERSIONINFOA.szCSDVersion.struct 
 end if 
 end function