Discussion :

[MFDev]

Bonjour
Je veux récupérer le chemin réel de la variable 'TEMP', mais la fonction me retourne '%SYSTEMROOT%\Temp'. Comment récupérer la valeur réelle de '%SYSTEMROOT', sans passer par des test sur C:, D: ?
J'ai utilisé la fonction 'GetCurrentProcessEnvVar()' de la FAQ Delphi Environnement.
Je suis sous XP et Delphi 7.
Merci d'avance.
Fabrice.

[Nono40]

Il faut récupérer ensuite la valeur de SYSTEMROOT il me semble.

[declencher]

Peut être de l'aide ici (j'ai pas tout lu) :

http://castelain.developpez.com/arti...Environnement/

[MFDev]

Merci, mais le code vient de cet exemple.
Effectivement, il faut récupérer l'adresse de %SystemRoot%, j'ai fouillé dans la base de registre: rien trouvé.
Tant pis, je ferais le test du répertoire sur chaque lecteur... je pensais qu'il y avait plus simple, vu que le system sait retrouver le chemin correspondant.
Fabrice

[mduse]

Salut,

Peut-être un complément d'informations
http://assiste.free.fr/assiste.com.html?http://assiste.free.fr/p/comment/variables_environnement.php

Pour le répertoire de windows, tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LPSTR GetWindowsDir(LPSTR szBuf, INT cbBuf);

@+

[Laurent Dardenne]

Utilise l'API ExpandEnvironmentStrings

[MFDev]

Bravo ! et merci... en finalité cela donne:
Windows n'aurait pas pu le faire directement, enfin...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function ...: string;
  ...
   // récup du chamin d'environnement
  if GetEnvironmentVariable(PChar(VariableName), PChar(Result), nSize) <> nSize - 1 then
      raise Exception.Create(SysErrorMessage(GetlastError));
   // si du type %...%\rep
  if Result[1] = '%' then begin
      ExpandEnvironmentStrings(PChar(Copy(Result, 1, Pos('\', Result) - 1)), sDrive, Sizeof(sDrive));
      Result := sDrive + Copy(Result, Pos('\', Result), Length(Result));
  end;	// if

Fabrice