Discussion :

[ChPr]

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.

[der§en]

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)…

[ChPr]

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

Je l'ai plutôt découvert.

... 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MacOs
contents

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[der§en]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ChPr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.