OSVersion()

Syntaxe

Resultat = OSVersion()
Description
Renvoie la version du système d'exploitation sur lequel le programme s'exécute.

Arguments

Cette fonction n'a pas de paramètre.

Valeur de retour

Renvoie l'une des valeurs suivantes, selon le système d'exploitation:

Windows
  #PB_OS_Windows_NT3_51
  #PB_OS_Windows_95
  #PB_OS_Windows_NT_4
  #PB_OS_Windows_98
  #PB_OS_Windows_ME
  #PB_OS_Windows_2000
  #PB_OS_Windows_XP
  #PB_OS_Windows_Server_2003
  #PB_OS_Windows_Vista
  #PB_OS_Windows_Server_2008
  #PB_OS_Windows_7
  #PB_OS_Windows_Server_2012
  #PB_OS_Windows_8
  #PB_OS_Windows_Future  ; Nouvelle version de Windows (n'existant pas lorsque le programme a été écrit)
Linux
  #PB_OS_Linux_2_2
  #PB_OS_Linux_2_4
  #PB_OS_Linux_2_6
  #PB_OS_Linux_Future ; Nouvelle version de Linux (n'existant pas lorsque le programme a été écrit)
Mac OSX
  #PB_OS_MacOSX_10_0
  #PB_OS_MacOSX_10_1
  #PB_OS_MacOSX_10_2
  #PB_OS_MacOSX_10_3
  #PB_OS_MacOSX_10_4
  #PB_OS_MacOSX_10_5
  #PB_OS_MacOSX_10_6
  #PB_OS_MacOSX_Future  ; Nouvelle version de MacOS X (n'existant pas lorsque le programme a été écrit)

Exemple

  Select OSVersion()
    Case #PB_OS_Windows_98
      MessageRequester("Info", "Windows 98")

    Case #PB_OS_Windows_2000
      MessageRequester("Info", "Windows 2000")
  
    Case #PB_OS_Windows_XP
      MessageRequester("Info", "Windows XP")

    Default
      MessageRequester("Info", "version de Windows inconnue")    
  EndSelect
Note : La valeur des constantes respecte l'ordre chronologique de sortie des différentes versions, ce qui permet de déterminer rapidement si une version est plus ancienne ou plus récente qu'une version donnée :
  If OsVersion() < #PB_OS_Windows_2000
    ;
    ; Toutes les versions plus anciennes que Windows 2000
    ;
  EndIf

OS Supportés

Tous

<- Green() - Misc Index - RGB() ->