Tout est dit dans le titre
Source / Exemple :
//*************************************************************
// Fonction Trouvant le Chemin du répertoire de Windows
//*************************************************************
function WindowsRep():string;
var
WindowsDir : array[0..MAX_PATH] of Char;
nSize : DWord;
begin
nSize := SizeOf(WindowsDir);
GetWindowsDirectory(@WindowsDir, nSize);
result := WindowsDir;
end;
//*************************************************************
// Fonction Trouvant le Chemin du répertoire de System
//*************************************************************
function SystemRep():string;
var
SystemDir : array[0..MAX_PATH] of Char;
nSize : DWord;
begin
nSize := SizeOf(SystemDir);
GetSystemDirectory(@SystemDir, nSize);
result := SystemDir;
end;
//*************************************************************
// Fonction Trouvant le Chemin du répertoire Temp
//*************************************************************
function TempRep():string;
var
TempDir : array[0..MAX_PATH] of Char;
nSize : DWord;
begin
nSize := SizeOf(TempDir);
GetTempPath(nSize, @TempDir);
result := TempDir;
end;
Conclusion :
Toutes Fonctions que je propose a été créé et donc testé par moi-même alors si problème il y a ne pas hésiter à m'écrire. :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.