Variables d'environement

[gansta93]

Salut tlm,

Je voulais savoir s'il était possible avec PureBasic d'utiliser les variables d'environement.
Je voulais savoir s'il y avait aussi quelques variables prédeffinies pour certains répertoirs.

Merci.

[Flype]

déja tu peux essayer çà :

Code : Tout sélectionner

Procedure.s Env( EnvName.s ) 
  
  Result.s = ""

  Size.l = ExpandEnvironmentStrings_( EnvName, #Null, #Null) 
  
  If Size
    
    Result = Space(Size) 
    ExpandEnvironmentStrings_( EnvName, Result, Size) 
    
  EndIf 
  
  ProcedureReturn Result
  
EndProcedure 

Debug Env( "%os%" )
Debug Env( "%temp%" )
Debug Env( "%windir%" ) 
Debug Env( "%systemroot%" )
Debug Env( "Le répertoire %systemroot% contient l'install de MS Windows" ) 

[Flype]

ou dans un autre style ce source de CodeFR :

http://perso.wanadoo.fr/lesoldatinconnu ... ocation.pb