Récupérer une variable d'environnementRésolu

Question

comment fait-ont pour récupérer une variable d'environnement?
avec un comSpec je croit mais je sais pas faire!

Cirec · Accepted Answer

Salut,
pour r&#233;cup&#233;rer une variable d'environnement c'est simple il faut utiliser la proc&#233;dure   de l'unit&#233; Windows comme ceci :

 Function MakeValidDir(Directory: String): String;
Var eVariable       : Array[0..512] Of Char;
Begin
  ExpandEnvironmentStrings(PChar(Directory), @eVariable, 512);
  Result :=  eVariable;
 End ;



procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption : = MakeValidDir(Edit1.Text);
end;


{********************************************************************************}{


Voici la liste des variables d'environnement &#224; utiliser entre deux "%" 
Exemple :  %AppData%
on peut aussi faire ceci %PROGRAMFILES%\Borland

liste extraite de l'aide de Windows
APPDATA
TEMP , TMP
COMPUTERNAME
CommonProgramFiles
COMSPEC
NUMBER_OF_PROCESSORS
OS
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
PROGRAMFILES
SYSTEMDRIVE
SYSTEMROOT
AllUsersProfile
USERPROFILE
WINDIR
The remainder are only available to interactive applications.


HOMEDRIVE
HOMEPATH
LOGONSERVER
USERDOMAIN
USERNAME
Only the WINDIR variable is available on Microsoft Windows&#174; 95 and Windows 98 systems.}

Bonnes F&#234;tes

cs_Delphiprog · Answer

R&#233;ponse : 
GetEnvironmentVariable(Name:string):string;

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

Bonsoir Delphiprog,

encore une fonction que je ne connaissais pas, c'est dans ces moments que l'on voit la diff&#233;rence entre le ma&#238;tre et l'apprenti  



@+
Cirec

dxh_master · Answer

MercI Beaucoup Pour Votre Aide 
ET 
BONNES FETES A TOUS!!!!!!!

cs_Delphiprog · Answer

Cirec : ne t'affoles pas, je ne connaissais pas non plus ExpandEnvironmentStrings ! lol
Un partout, balle au centre 


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

me voil
&#224;
 rassur&#233;
 maintenant,
 la diff&#233;
rence entre les deux c'est que l'
on 
&#224;
 pas besoin de d&#233;
clarer l'unit&#233; SysUtils puisqu'
elle se trouve dans l
'unit&#233; Windows. D'
ailleurs GetEnvironmentVariable existe aussi dans l
'unit&#233; Windows avec les m&#234;mes param&#232;tres que ceux de 
ExpandEnvironmentStrings 
?


Bon alors comme tu ne connaissais pas ExpandEnvironmentStrings 
je me permet de te pr
&#233;
senter sa petite soeur qui elle fait l'op&#233;ration inverse. 


Function PathUnExpandEnvStrings
(pszPath
: PAnsiChar
; pszBuf
: PAnsiChar
; cchBuf
:
Integer
): Boolean
; StdCall external 
'ShlwApi.dll' name 
'PathUnExpandEnvStringsA';


Function PathToEnvString
(lsPath
: String
): String
;


Implementation


Function PathToEnvString
(lsPath
: String
): String
;
Var eVariable 
: Array
[0..512] Of Char
;
Begin
Result 
:=  
EmptyStr;
PathUnExpandEnvStrings
 ( PChar
(lsPath
), 
@eVariable
, 
512);
Result 
: = eVariable
;
End
;

Récupérer une variable d'environnement

6 réponses

Votre réponse

Discussions similaires