delphi FMX获取当成工程的运行路径

//uses System.IOUtils

function GetAppPath: string;

begin

{$IF Defined(ANDROID)}

  Result := ExtractFilePath(

    ExcludeTrailingPathDelimiter(

    TPath.GetHomePath));

{$ELSE}

  Result := ExtractFilePath(ParamStr(0));

{$ENDIF ANDROID}

  Result := IncludeTrailingPathDelimiter(Result);

end;