dubois77
Messages postés675Date d'inscriptionjeudi 17 avril 2008StatutMembreDernière intervention19 février 201914 23 nov. 2010 à 08:26
Salut
essaye celà
//------------------------------------------------------------------------------
function DirAppli:string;
//uses SysUtils
begin
result := extractFilePath(application.ExeName)
end;
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 23 nov. 2010 à 09:20
Ou bien ParamStr(0), qui par définition contient le chemin du fichier exécutable (ça t'évite de devoir ajouter Forms à ta clause uses si tu fais une application console par exemple).