dxh_master
Messages postés97Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention25 juin 2006
-
14 juin 2006 à 23:22
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
17 juin 2006 à 12:31
bonjour!
jaimerait pouvoire connaitre le dossier systemroot mais sans la base registre ni batch es-possible ?
Merci
dxh_master
Messages postés97Date d'inscriptionmardi 24 mai 2005StatutMembreDernière intervention25 juin 2006 15 juin 2006 à 00:32
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)
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 17 juin 2006 à 12:25
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
<hr />n'oubliez pas de cliquer sur Réponse Acceptée
si elle vous convient
<hr />
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 17 juin 2006 à 12:31
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;