Delphi/Lazarus: Comment obtenir le Dossier ou Chemin du propre Programme

C'est assez facile. Dans Paramstr(0) ainsi que dans Application.ExeName, le chemin complet de votre fichier d'application est stocké.

Pour obtenir le dossier correspondant, il vous suffit d'extraire le chemin de Paramstr(0) ou Application.ExeName.

var
  DossierApplication: string;
begin
  DossierApplication := ExtractFilePath(Application.ExeName);

  // ou

  DossierApplication := ExtractFilePath(Paramstr(0));
end;

Comme vous pouvez le voir, vous pouvez y parvenir en utilisant la fonction ExtractFilePath(). Dans ce cas, cette fonction coupe le fichier programme du chemin et fournit en conséquence le chemin souhaité vers votre EXE.
29/06/2021 à 16:37