SyStemroot

bonjour!
jaimerait pouvoire connaitre le dossier systemroot mais sans la base registre ni batch es-possible ?
Merci

a joubliais jai un code comme celui la :

function TempRep():string;
var
TempDir : array[0..MAX_PATH] of Char;
  nSize : DWord;
Begin
   nSize := SizeOf(TempDir);
   GetTempPath(nSize, @TempDir);
   result := TempDir;
 End;
 et j'aimerait que ce soye un code du meme genre. (si possible)

Salut,

La même question a été posé pas plus tard que la semaine dernière.
Voilà la réponse :
http://www.delphifr.com/infomsg_MYDOCPATH_755058.aspx#5


Salutations,
fjohnny

Heuresement qu'il est dit dans le règlement faire un recherche avant de poser la question. On ne le répetera jamais assez FAITES UNE RECHERCHE.


@+
 Matt

---

La paresse est la mère du génie...

Salut,

comme le lien donne une autre méthode pour arriver au même résultat et tu demandais un function similaire a ton exemple, voici ce que je te propose :

{*******************************************************************************
                                             Fonction pour récuperer le dossier système
********************************************************************************}
Function GetSystemDir: String;
Var Buffer : PChar;
    sz     : Integer;
Begin
  sz:= GetSystemDirectory(nil, 0); // on récupère la taille
  buffer:= StrAlloc(sz);  // on alloue l'espace
  GetSystemDirectory(buffer, sz); // onrécupère le répertoire 
  Result := Buffer;  // et on le transmet 
End;

@+
Cirec

---

n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

---

Petit oublis:

Function GetSystemDir: String;
Var Buffer : PChar;
    sz     : Integer;
Begin
  sz:= GetSystemDirectory(nil, 0); // on récupère la taille
  buffer:= StrAlloc(sz);  // on alloue l'espace
  GetSystemDirectory(buffer, sz); // onrécupère le répertoire
  Result := Buffer;  // et on le transmet
  StrDispose(Buffer); // et on libère l'espace précédemment alloué
End;


@+
Cirec