PureBasic Forums - English

Posted: **Sat Jun 09, 2007 11:59 pm**

When I run this code on Windows XP it returns Vista

Procedure.s WindowsVersion()
  Select OSVersion()
    Case #PB_OS_Windows_NT3_51
      Result$ = "Windows NT 3.5"
    Case #PB_OS_Windows_95
      Result$ = "Windows 95"
    Case #PB_OS_Windows_NT_4
      Result$ = "Windows NT 4"
    Case #PB_OS_Windows_98
      Result$ = "Windows 98"
    Case #PB_OS_Windows_2000
      Result$ = "Windows 2000"
    Case #PB_OS_Windows_XP
      Result$ = "Windows XP"
    Case #PB_OS_Windows_Server_2003
      Result$ = "Windows Server 2003"
    Case #PB_OS_Windows_Vista
      Result$ = "Windows Vista"
    Case #PB_OS_Windows_Server_2008
      Result$ = "Windows Server 2008"
    Default
      Result$ = "Windows"
  EndSelect
    ProcedureReturn Result$
EndProcedure

Debug WindowsVersion()

Posted: **Sun Jun 10, 2007 12:03 am**

Its a 4.10 bug which the alpha testers like you failed to catch, thats why it is still around

its fixed for beta2

Posted: **Sun Jun 10, 2007 12:19 am**

He he he I see

Oh well, probably just took an old guy to find it

PureBasic Forums - English

OSVersion() troubles

OSVersion() troubles