[SOLVED] Read file inside app bundle MacOs

[jamie]

Ok, another reason to stay away from it.

[madref]

I found out that the real environment and the design environment need two separate approaches because when designing in Lazarus for Mac the actual running file is stored in the same directory as the app-bundle, BUT in the real environment the running file is stored INSIDE the bundle.


So I came up with this solution:

Code: Pascal  [Select][+][-]

1.   String1 := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
2.   String2 := 'MacOS';
3.   if Pos(String2, String1) <> 0 then
4.     // Work Environment
5.     ProgramDir := copy(String1, 1, length(String1) - 6)
6.   else
7.     // Design Environment
8.     ProgramDir := Application.ExeName + '.app/Contents/';