以下代码适用于 Delphi 10.2.2 Tokyo,但不适用于 Delphi 10.3 Rio。
我在两台设备上尝试了代码(实际上它是一个已经工作的旧代码)。
strCoverPath := System.IOUtils.TPath.GetSharedMusicPath;
strCoverPath := Copy(strCoverPath, 0, strCoverPath.Length - 5) + 'Mp3PlayerNG/';
if ForceDirectories(strCoverPath + 'images') then
blnDirExists := true;
strCoverPath 的值为:'/storage/emulated/0/Mp3PlayerNG/'。在 Delphi 10.2.2 Tokyo 上运行代码,一切正常。目录已创建,应用程序工作正常。
在 Delphi 10.3 上运行代码,不会创建目录。没有错误消息或我能看到的任何内容。没有目录,应用程序将无法工作,因为必须将多个文件存储在目录中。
有谁知道如何解决这个问题?我在互联网上找不到任何东西。提前致谢!