PROCEDURE GetVarEnv(paNOMVAR)
// lecture des variables
d'environnement
NomVariable est une chaîne ASCIIZ sur 64
ValeurVariable est une chaîne ASCIIZ sur 1024
TailleMaxVariable est un entier long
TailleResultat est un entier long
TailleMaxVariable = 1024
NomVariable = paNOMVAR
TailleResultat = 0
//Fonction de récupération
d'une variable d'environnement
TailleResultat=AppelDLL32("kernel32","GetEnvironmentVariableA",...
&NomVariable,&ValeurVariable,TailleMaxVariable)
SI TailleResultat > 0
ALORS
RENVOYER ValeurVariable
SINON
RENVOYER ""
FIN