我在应用加载时让应用显示其指定的背景图片。然后它在启动时崩溃运行此代码:
// unzip own resources like images, data files ettc.
FAppDataDirPath := GetHomePath + PathDelim + Application.Title + '.app' + PathDelim;
P := FAppDataDirPath + 'assets.zip';
if FileExists(P) then
begin
Z := TZipFile.Create;
try
Z.Open(P, zmRead);
Z.ExtractAll(FAppDataDirPath + 'Library');
finally
Z.Free;
end;
end
;
这是我得到的错误:
答案 0 :(得分:3)
问题在于您使用了错误的方法来获取位置。
切换为使用System.IOUtils.TPath
,使用TPath.GetHomePath
获取主文件夹,Documents
获取Library
文件夹,TPath.GetDocumentsPath
获取{{1}}文件夹位置。