[MacOS] Déterminer le répertoire de l'exécutable

Bonjour à toutes et à tous,

Si on utilise l'instruction IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); sous Windows et Linux on obtient tout le chemin qui est avant le nom de l'exécutable.

Sous MacOS, le chemin comprends la partie /Contents/MacOS/ qui suit le nom de l'exécutable.

C'est à dire que lorsque l'on va créer des répertoires à l'aide de l'instruction mkDir(MonRep);, le répertoire va se trouver dans le conteneur /Contents/MacOS/ et non pas dans le répertoire où se trouve l'exécutable.

Existe-t-il une instruction permettant d'avoir le nom du répertoire contenant l'exécutable et non celui suivi de /Contents/MacOS/ ou bien faut-il traficoter cela avec des instructions de coupures de texte ?

Cordialement.

Pierre.

As-tu compris qu’un exécutable sous MacOS est en réalité une arborescence zippé ?

De ce fait, pour extraire le dossier contenant ton exécutable, tu dois remonter (de mémoire) de 3 niveaux, le chemin renvoyer par ParamStr(0)…

Citation:

---

Envoyé par der§en

As-tu compris qu’un exécutable sous MacOS est en réalité une arborescence zippé ?…

---

Je l'ai plutôt découvert.

Citation:

---

Envoyé par der§en

... De ce fait, pour extraire le dossier contenant ton exécutable, tu dois remonter (de mémoire) de 3 niveaux, le chemin renvoyer par ParamStr(0)…

---

Il faut remonter de deux niveaux :

Code:

---

1 2	MacOs contents

---

J'y suis arrivé par le code suivant, mais que je trouve être du bricolage. Enfin, ça fonctionne :

Code:

---

1 2 3 4 5

Pgm:= Application.ExeName; DirEXE:= IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); {$IFDEF DARWIN} Delete(DirEXE, Pos(ExtractFileName(Pgm), Pgm), 255); {$ENDIF}

---

Cordialement.

Pierre.

Sous Delphi et Firemonkey, je détermine le dossier de l’app comme ceci:

Code:

---

MyAppFolder := ExtractFileDir(ExtractFileDir(ExtractFileDir(ParamStr(0))));

---

Citation:

---

Envoyé par der§en

Sous Delphi et Firemonkey, je détermine le dossier de l’app comme ceci:

Code:

---

MyAppFolder := ExtractFileDir(ExtractFileDir(ExtractFileDir(ParamStr(0))));

---

---

Dans ma VM MacOS, je suis obligé d'utiliser quatre fois "ExtractFileDir" pour y arriver !!!

Pour l'instant, je garde ma solution.

Cordialement.

Pierre.