Getting Operating System version?

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 3:05 am

Restored from previous forum. Originally posted by PB.

First: Sorry about the lack of indentation, but I don't know how to turn HTML on and the FAQ doesn't say how either...

Anyway, can anyone help me with the problem of determing which Operating System my app is running on? Here's some code that VB uses to find it, by using the SysInfo control (I think), and a PureBasic equivalent would be great (including Windows XP too, unlike this example). Thanks!

BTW, please don't direct me to the Win32 API guide -- I've tried to work it out but can't. An actual working example would be preferred.

With osinfo
Select Case .dwPlatformId
Case 1
Select Case .dwMinorVersion
Case 0
getVersion = "Win95"
Case 10
getVersion = "Win98"
Case 90
getVersion = "WinME"
Case Else
getVersion = "Failed"
End Select
Case 2
Select Case .dwMajorVersion
Case 3
getVersion = "NT_3.51"
Case 4
getVersion = "NT_4.0"
Case 5
getVersion = "Win2000"
Case Else
getVersion = "Failed"
End Select
Case Else
getVersion = "Failed"
End Select
End With

Edited by - PB on 29 October 2001 03:13:11

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 11:49 am

Restored from previous forum. Originally posted by wavemaker.

This worked for me:

Code: Select all

lpVersionInformation.OSVERSIONINFO
lpVersionInformation\dwOSVersionInfoSize = 148
success = GetVersionEx_(@lpVersionInformation)
If success
  Select lpVersionInformation\dwPlatformId
    Case #VER_PLATFORM_WIN32s
      PlatformID$ = "Windows 3.1"
    Case #VER_PLATFORM_WIN32_WINDOWS
      PlatformID$ = "Windows 95"
    Case #VER_PLATFORM_WIN32_NT
      PlatformID$ = "Windows NT"
    Default
      PlatformID$ = "Unknown"
  EndSelect
  osVersion$ = "Version: " + Str(lpVersionInformation\dwMajorVersion) + "." + Str(lpVersionInformation\dwMinorVersion) + chr(10) + chr(13) + "Build: " + Str(lpVersionInformation\dwBuildNumber) + chr(10) + chr(13) + "Platform: " + PlatformID$ + chr(10) + chr(13) + "Other: Unavailable"; The following gives an assembly error: +PeekS(@lpVersionInformation\szCSDVersion);
Else
  osVersion$ = "Unable to retrieve OS version information."
EndIf
MessageRequester("OS version",osVersion$,0)
End

I hope it's useful.

Juan CalderÃ³n Alonso
Registered user

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 12:05 pm

Restored from previous forum. Originally posted by wavemaker.

Sorry, applying the constants you provide is more accurate:

Code: Select all

lpVersionInformation.OSVERSIONINFO
lpVersionInformation\dwOSVersionInfoSize = 148
success = GetVersionEx_(@lpVersionInformation)
If success
  Select lpVersionInformation\dwPlatformId
    Case #VER_PLATFORM_WIN32_WINDOWS
      Select lpVersionInformation\dwMinorVersion
        Case 0
          getVersion$ = "Windows 95"
        Case 10
          getVersion$ = "Windows 98"
        Case 90
          getVersion$ = "Windows ME"
        Default
          getVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32_NT
      Select lpVersionInformation\dwMajorVersion
        Case 3
          getVersion$ = "Windows NT 3.51"
        Case 4
          getVersion$ = "Windows NT 4.0"
        Case 5
          getVersion$ = "Windows 2000"
        Default
          getVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32s
      getVersion$ = "Windows 3.1"
    Default
      getVersion$ = "Unknown"
  EndSelect
  osVersion$ = "Platform: "+getVersion$+chr(10)+chr(13)+"Version: "+Str(lpVersionInformation\dwMajorVersion)+"."+Str(lpVersionInformation\dwMinorVersion)+chr(10)+chr(13)+"Build: "+Str(lpVersionInformation\dwBuildNumber)+chr(10)+chr(13)+"Other: Unavailable";The following gives an assembly error: +PeekS(@lpVersionInformation\szCSDVersion);
Else
  osVersion$ = "Unable to retrieve OS version information."
EndIf
MessageRequester("OS version",osVersion$,0)
End

Bye,

Juan CalderÃ³n Alonso
Registered user

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 6:12 pm

Restored from previous forum. Originally posted by Franco.

Hi PB, try this:
PeekS(@lpVersionInformation\szCSDVersion[0])
and it will work without assembly error.

BTW: I get a wrong build number on my system.

When you look at:
All Forums -> Beginners -> Declare a size of a string
you will see another way to get Versions Info.
The Buildnumber with this method is the right one.
Hope this helps.

Have a nice day...
Franco

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 7:57 pm

Restored from previous forum. Originally posted by Franco.

OK here is your code running... also the build # is ok!

Code: Select all

lpVersionInformation.OSVERSIONINFO
lpVersionInformation\dwOSVersionInfoSize = SizeOf(OSVERSIONINFO)
If GetVersionEx_(@lpVersionInformation)
  Select lpVersionInformation\dwPlatformId
    Case #VER_PLATFORM_WIN32_WINDOWS
      Select lpVersionInformation\dwMinorVersion
        Case 0
          GetVersion$ = "Windows 95"
        Case 10
          GetVersion$ = "Windows 98"
        Case 90
          GetVersion$ = "Windows ME"
        Default
          GetVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32_NT
      Select lpVersionInformation\dwMajorVersion
        Case 3
          GetVersion$ = "Windows NT 3.51"
        Case 4
          GetVersion$ = "Windows NT 4.0"
        Case 5
          GetVersion$ = "Windows 2000"
        Default
          GetVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32s
      GetVersion$ = "Windows 3.1"
    Default
      GetVersion$ = "Unknown"
  EndSelect
  OsVersion$ = "Platform: "+GetVersion$+chr(10)+chr(13)+"Version: "+Str(lpVersionInformation\dwMajorVersion)+"."+Str(lpVersionInformation\dwMinorVersion)+chr(10)+chr(13)+"Build: "+Str(PeekW(@lpVersionInformation\dwBuildNumber))+"."+Str(PeekW(@lpVersionInformation\dwBuildNumber+2))+chr(10)+chr(13)+"Other: "+PeekS(@lpVersionInformation\szCSDVersion[0])
Else
  OsVersion$ = "Unable to retrieve OS version information."
EndIf
  MessageRequester("OS version",OsVersion$,0)
End

Have a nice day...
Franco

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 8:50 pm

Restored from previous forum. Originally posted by PB.

Thanks to all who replied -- I appreciate it!

BTW, someone in a VB group posted this info for Windows XP, which can worked into your code examples above: XP = dwVerMajor is 5, dwVerMinor is 1.

BTW #2: How the heck did you guys post with indentations? When I try all my text gets stripped of the leading spaces...

BackupUser · Post by **BackupUser** » Mon Oct 29, 2001 11:42 pm

Restored from previous forum. Originally posted by Franco.

You have to write it this way:

here put your comments....
[ c o d e ] <- this is the start of your code (without spaces)
your code .....
[ / c o d e ] <- this is the end of your code (without spaces)
that's it....

Have a nice day...
Franco

Edited by - franco on 29 October 2001 23:45:44

BackupUser · Post by **BackupUser** » Tue Oct 30, 2001 12:30 am

Restored from previous forum. Originally posted by Franco.

OK, let's complete the M$ mess, the M$ platform SDK says:

-------snip
dwBuildNumber
Windows NT/2000/XP: Identifies the build number of the operating system.
Windows 95/98/Me: Identifies the build number of the operating system in the low-order word. The high-order word contains the major and minor version numbers.
-------snip

I suppose my code (to get the correct build #) is only valid for 95/98/Me.
Windows NT/2000/XP has one long value. So you have to check for this.
Can anybody with NT/2000/XP confirm that?

Have a nice day...
Franco

BackupUser · Post by **BackupUser** » Tue Oct 30, 2001 11:02 am

Restored from previous forum. Originally posted by PB.

I suppose my code (to get the correct build #) is only valid for 95/98/Me.
Windows NT/2000/XP has one long value. So you have to check for this.
Can anybody with NT/2000/XP confirm that?

Your code posted above (29 October 2001, 19:57:57) works fine for me
with Windows 2000... it reports everything fine. It reports the
following:

Platform: Windows 2000
Version: 5.0
Build: 2195.0
Other: Service Pack 2

Hope this helps!

BackupUser · Post by **BackupUser** » Tue Oct 30, 2001 10:18 pm

Restored from previous forum. Originally posted by Mr.Skunk.

Hi,

For Windows Xp Home it displays :

Platform : windows 2000
Version 5.1
Build : 2600.0
Other :

Hope it helps...

Mr Skunk

Mr Skunk's PureBasic Web Page
http://www.skunknet.fr.st

BackupUser · Post by **BackupUser** » Tue Mar 26, 2002 8:34 am

Restored from previous forum. Originally posted by PB.

Code: Select all

lpVersionInformation.OSVERSIONINFO
lpVersionInformation\dwOSVersionInfoSize = SizeOf(OSVERSIONINFO)
If GetVersionEx_(@lpVersionInformation)
  Select lpVersionInformation\dwPlatformId
    Case #VER_PLATFORM_WIN32_WINDOWS
      Select lpVersionInformation\dwMinorVersion
        Case 0
          GetVersion$ = "Windows 95"
        Case 10
          GetVersion$ = "Windows 98"
        Case 90
          GetVersion$ = "Windows ME"
        Default
          GetVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32_NT
      Select lpVersionInformation\dwMajorVersion
        Case 3
          GetVersion$ = "Windows NT 3.51"
        Case 4
          GetVersion$ = "Windows NT 4.0"
        Case 5
          GetVersion$ = "Windows 2000"
        Default
          GetVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32s
      GetVersion$ = "Windows 3.1"
    Default
      GetVersion$ = "Unknown"
  EndSelect
  OsVersion$ = "Platform: "+GetVersion$+chr(10)+chr(13)+"Version: "+Str(lpVersionInformation\dwMajorVersion)+"."+Str(lpVersionInformation\dwMinorVersion)+chr(10)+chr(13)+"Build: "+Str(PeekW(@lpVersionInformation\dwBuildNumber))+"."+Str(PeekW(@lpVersionInformation\dwBuildNumber+2))+chr(10)+chr(13)+"Other: "+PeekS(@lpVersionInformation\szCSDVersion[0])
Else
  OsVersion$ = "Unable to retrieve OS version information."
EndIf
  MessageRequester("OS version",OsVersion$,0)
End

Can somebody please add to this code so it detects Windows XP home and pro?
Many thanks... I think I know how to do it, but I don't have XP to test it,
so there's no point in me attempting it...

PB - Registered PureBasic Coder

BackupUser · Post by **BackupUser** » Tue Mar 26, 2002 4:40 pm

Restored from previous forum. Originally posted by Franco.

Can somebody please add to this code so it detects Windows XP home and pro?
Many thanks... I think I know how to do it, but I don't have XP to test it,
so there's no point in me attempting it...

Good morning PB,
found this code on my HD at work (W98SE):

Code: Select all

 
lpVersionInformation.OSVERSIONINFO
lpVersionInformation\dwOSVersionInfoSize = SizeOf(OSVERSIONINFO)
If GetVersionEx_(@lpVersionInformation)
  Select lpVersionInformation\dwPlatformId
    Case #VER_PLATFORM_WIN32s
      GetVersion$ = "Windows 3.1"
    Case #VER_PLATFORM_WIN32_WINDOWS
      Select lpVersionInformation\dwMinorVersion
        Case 0
          GetVersion$ = "Windows 95"
        Case 10
          GetVersion$ = "Windows 98"
        Case 90
          GetVersion$ = "Windows ME"
        Default
          GetVersion$ = "Unknown"
      EndSelect
    Case #VER_PLATFORM_WIN32_NT
      Select lpVersionInformation\dwMajorVersion
        Case 3
          GetVersion$ = "Windows NT 3.51"
        Case 4
          GetVersion$ = "Windows NT 4.0"
        Case 5
          Select lpVersionInformation\dwMinorVersion
            Case 0
              GetVersion$ = "Windows 2000"
            Case 1
              GetVersion$ = "Windows XP"
            Default
              GetVersion$ = "Unknown"
          EndSelect
        Default
          GetVersion$ = "Unknown"
      EndSelect
;    Case #VER_PLATFORM_WIN32_CE
;      GetVersion$ = "Windows CE"
    Default
      GetVersion$ = "Unknown"
  EndSelect
  OsVersion$ = "Platform: "+GetVersion$+Chr(10)+Chr(13)+"Version: "+Str(lpVersionInformation\dwMajorVersion)+"."+Str(lpVersionInformation\dwMinorVersion)+Chr(10)+Chr(13)+"Build: "+Str(PeekW(@lpVersionInformation\dwBuildNumber))+"."+Str(PeekW(@lpVersionInformation\dwBuildNumber+2))+Chr(10)+Chr(13)+"Other: "+PeekS(@lpVersionInformation\szCSDVersion[0])
Else
  OsVersion$ = "Unable to retrieve OS version information."
EndIf
  MessageRequester("OS version",OsVersion$,0)
End

If I recall it right, it worked on WinXP (last year at home...) also fine.
I can double check it tonight if you want
Hope this helps...

Have a nice day...
Franco

Sometimes you have to go a lonely way to accomplish genius things.

Edited by - franco on 27 March 2002 05:10:57

BackupUser · Post by **BackupUser** » Tue Mar 26, 2002 5:11 pm

Restored from previous forum. Originally posted by PB.

> I can double check it tonight if you want

Yes please, that would be appreciated!

Side-note: Wow, this was my 500th post!

PB - Registered PureBasic Coder

Edited by - PB on 26 March 2002 17:13:06

BackupUser · Post by **BackupUser** » Wed Mar 27, 2002 5:20 am

Restored from previous forum. Originally posted by Franco.

Hi PB,
the code works fine under WinXP (please copy and paste the code now! - changed because there was a fragmented documentation line on line 18)

Under WinXP I get the result:

Platform: Windows XP
Version: 5.1
Build: 2600.0
Other:

BTW1: The empty 'Other:' line reminds me to install 2 security patches for WinXP I saw somewhere...

BTW2: Fred and PB, 500 mails but no 4th star...

Have a nice day...
Franco

Sometimes you have to go a lonely way to accomplish genius things.

Edited by - franco on 27 March 2002 05:27:40

BackupUser · Post by **BackupUser** » Wed Mar 27, 2002 9:14 am

Restored from previous forum. Originally posted by PB.

> the code works fine under WinXP

Many thanks, Franco!

> BTW2: Fred and PB, 500 mails but no 4th star...

I know, what's going on?

PB - Registered PureBasic Coder