Display Windows Version

[TimStone]

Somewhere I recall this may have been addressed but I can't find it.

On one of my dialogs, I want to display the version of Windows that the computer is using. I am testing this on a Windows 11 computer.

If I use either OS() or Windows( ) I get Version 8.

If I use GetVersion( ) and use the array values, I get Version 6.2.

What I want to display is Windows 8, 10, or 11, depending on what is actually running on the computer. Is this possible ?

[Jimmy]

hi,

FiveWin have Funktion Windows()

Code: Select all  Expand view

c:\fwh\source\function\getsysin.prg

but for Windows 10 you need "more" Information and Windows 11 is not include

---

for User :

FiveWin have ShellAbout()
https://docs.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellaboutw
it will display Windows About Dialog which show Windows Version

you can add a String, here "FiveWin", in Dialog-Box

For Developer :

i use these Registry Settings

Code: Select all  Expand view

  a := RegistryRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName" )
   b := RegistryRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuild" )
   // Sub-Version
   c := LTRIM( STR( RegistryRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\UBR" ) ) )
   d := RegistryRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DisplayVersion" )

"c" give you Windows 10 "Sub-Version"

work from XP up to Windows 11 DEV

[Antonio Linares]

Checking this:
https://stackoverflow.com/questions/69038560/detect-windows-11-with-net-framework-or-windows-api

We are going to update FWH to properly recognize Windows 11. Tomorrow, now its quite late here

[Antonio Linares]

Please download FWH.exe and FWH64.exe again as we have already included support for Windows 11 in function cWinVersion()

Also there is a new function IsWindows11()

You can build and run FWH\samples\testerro.prg and see the Windows description in the generated log file

many thanks

[TimStone]

Thank you. That works great.