How to determine OS, which version, and which ver of windoz?

General
21

[quote=136115:@Oliver Osswald]Dave’s code does not return a correct result on Yosemite.
https://forum.xojo.com/2239-how-to-determine-os-which-version-and-which-ver-of-windoz/p1#p15562

I would expect sver to be 1010 but it is 1090.

How can I determine in code that my app is running on yosemite?[/quote]

See Norman’s method in this recent discussion https://forum.xojo.com/16320-recognize-version-of-os-x

22

Theres another discussion about this and dave corrected his code in that
https://forum.xojo.com/16320-recognize-version-of-os-x

23

@ Michel and Norman: Thanks a lot for the links!

24

Well it works properly on my Yosemite machine… 10.9.0 would be Maverick

25

fragmented topics… see Normans post above

26

Hi Forum,

I use Dave’s code in order to detect the currently used OS. (By the many: many thanks!!!)

Unfortunately, it gives incorrect result for Windows 10.
I get a 602 which indicates Windows 8. Also Christian’s SysteminformationMBS.WinMajorVersion returns a “6”.

Any ideas?

27

My code wasn’t even updated for Win8 either… someone would have to experiment to determine what the correct values are to detect Win8 and Win10

28

For whatever reason, Windows 10 shows as 602, build 9200. Which means it is not possible to distinguish 8, 8.1 and 10 by your method.

The best I found is to shell to Ver, which value is for Windows 10.

Microsoft Windows [Version 10.0.10240]

First number is 10, obviously, and the last digits are the build.

So basically something like this would do :

[code]Function WhichSystem() As String
Dim noerror As Boolean
Dim result As Integer
Dim sver As String
Dim sversion As String
Dim os As String
#If TargetMacOS
noerror=System.Gestalt(“sysv”,result)
If noerror Then
sver=Hex(result)
sversion=sver.Left(2) + “.” + sver.Mid(3,1) + “.” + sver.Right(1)
OS_CODE=Val(sver.Mid(3,1))
Select Case OS_CODE

  Case 0
    os="Cheetah"
  Case 1
    os="Puma"
  Case 2
    os="Jaguar"
  Case 3
    os="Panther"
  Case 4
    os="Tiger"
  Case 5
    os="Leopard"
  Case 6
    os="Snow Leopard"
  Case 7
    os="Lion"
  Case 8
    os="Mountain Lion"
  Case Else
    os="Unknown"
  End Select
  Return "Mac OSX "+os+" "+sversion
Else
  Return ""
End If

#ElseIf TargetWin32

OS = "Windows"

//try to be more specific of windows version
Soft Declare Sub GetVersionExA Lib "Kernel32" ( info As Ptr )
Soft Declare Sub GetVersionExW Lib "Kernel32" ( info As Ptr )

Dim info As MemoryBlock

If System.IsFunctionAvailable( "GetVersionExW", "Kernel32" ) Then
  info =  New MemoryBlock( 20 + (2 * 128) )
  info.Long( 0 ) = info.Size
  GetVersionExW( info )
Else
  info =  New MemoryBlock( 148 )
  info.Long( 0 ) = info.Size
  GetVersionExA( info )
End If

Dim Str As String
Dim OS_CODE as Integer
OS_CODE=info.Long(4)*100+info.long(8)
Select Case OS_CODE
Case 400
  os = "Windows 95/NT 4.0"
Case 410
  os = "Windows 98"
Case 490
  os = "Windows Me"
Case 300 To 399
  os = "Windows NT 3.51"
  OS_CODE=30
Case 500
  os = "Windows 2000"
Case 501
  os = "Windows XP"
Case 502
  os = "Windows Server 2003"
Case 600
  os = "Windows Vista"
Case 601
  os = "Windows 7"
Case 602
  dim s as new shell
  s.execute("ver")
  dim res as string = s.Result
  if val(mid(res,30,2)) = 10 then
    os = "Windows 10"
    dim build as double = val(mid(res,33,10))*100000
    Str = " Build "+format(build,"00000")
  else
    os = "Windows 8/8.1"
  end if
End Select
if Str = "" then Str = " Build " + Str( info.Long( 12 ) )

If System.IsFunctionAvailable( "GetVersionExW", "Kernel32" ) Then
  Str = Str + " " + Trim( info.WString( 20 ) )
Else
  Str = Str + " " + Trim( info.CString( 20 ) )
End If

os = os + Str
Return os

#EndIf
End Function
[/code]

I tested it with Windows 10 and Windows 8.1. Since Windows 8 and 8.1 have exactly the same results with Dave method and Ver, I do not know how to discriminate them.

29

https://msdn.microsoft.com/en-us/library/windows/desktop/ms724833(v=vs.85).aspx

Please look at the “Community Additions” at the end of the document.

Edit -> added:
https://msdn.microsoft.com/en-us/library/windows/desktop/dn481241(v=vs.85).aspx

30

It appears the same kind of conundrum happens with Mavericks, Yosemite and El Capitan on the Mac side. All report OS_CODE = 9.

The best I found was to use a shell to sw_vers -productVersion which gives the number, for instance here with El Capitan 10.11.

A similar structure as what happens for 602 in Windows can be used.

31

So, Win and Mac OS are not so different?

32

[quote=203751:@Maurizio Rossi]https://msdn.microsoft.com/en-us/library/windows/desktop/ms724833(v=vs.85).aspx

Please look at the “Community Additions” at the end of the document.

Edit → added:
https://msdn.microsoft.com/en-us/library/windows/desktop/dn481241(v=vs.85).aspx[/quote]

I just checked, that method is used in OSVersionInformationWFS.

As it seems from what you point to, though, the same problem presents to distinguish 8 and 8.1.

They are often more similar than what some may think :wink:

33

They are both products of human beings…

34

I fixed it here already.

35

Which plugin is it ? Are you able to distinguish between 8 and 8.1 ?

36

Yes. I’ll upload new plugins tomorrow and than you can check it.
Should detect 7, 8, 8.1 and 10 correctly.

37

And it’s really a problem that Microsoft’s functions don’t return the right OS version.

38

GetVersionExW and GetVersionExA it seems were both deprecated in Win8.1 and don’t return codes beyond Win7 anymore.
They replaced it with a boatload of “Version Helper” API code, that I’m not sure how (or if) they can be declared in XOJO

39

If you are tempted to muck around with the EXE’s Manifest, see my warnings here: https://forum.xojo.com/24477-windows-10-manifest-gotcha

40

15.2pr9 is online, so everyone using MBS Plugin should now see version 10 being reported correctly.