OSVersion()

Syntaxe

Resultat = OSVersion()

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