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;