Mac OS X -> Ohne Delphi keine Funktion ?

[arnof]

Ursache des Problems gefunden:

aus Delphi heraus gestartet funktioniert GetCurrentDir. Selbst gestartet gibt das Ding nur / zurück!

Es sollte sich aber dann nicht einfach verabschieden, sondern mal irgendeine Fehlermeldung ausgeben …

Hier für alle geplagten mal eine universelle Funktion, die sicher das Programmverzeichnis bzw Zugriffsverzeichnis findet:

Delphi-Quellcode:

{
 Sucht das Programmverzeichnis (Datenverzeichnis)
}
function GET_HomePath(PathToData,Datei:string):string;
begin
   {$IFDEF MSWINDOWS}
   if PathToData='' then PathToData:=ExtractFilePath(ParamStr(0));                         // Windows
   {$ENDIF}
   {$IFDEF MACOS}
   {$IFDEF IOS}
   if PathToData='' then PathToData:=TPath.GetDocumentsPath+TPath.DirectorySeparatorChar;  // iOS
   {$ELSE}
   if PathToData='' then PathToData:=ExtractFilePath(ParamStr(0));                         // MacOSX
   {$ENDIF}
   {$ENDIF}
   // Fallse wir hier irgendein System vergessen haben nochmals zur Sicherheit
   {$IFDEF NEXTGEN}
   if PathToData='' then PathToData:=TPath.GetDocumentsPath;                               // Android und sonstige zukünftigen Plattformen
   {$ELSE}
   if PathToData='' then TPath.GetHomePath;
   {$ENDIF}
   result:=TPath.Combine(PathToData, Datei);
end;