我让应用程序在加载应用程序时显示其指定的背景图像。然后在启动时运行此代码会崩溃:
// 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
;
这是我得到的错误:
问题是您使用了错误的方法来获取位置。
切换到使用System.IOUtils.TPath http://docwiki.embarcadero.com/Libraries/XE4/en/System.IOUtils.TPath, using TPath.GetHomePath http://docwiki.embarcadero.com/Libraries/XE4/en/System.IOUtils.TPath.GetHomePath获取主文件夹,TPath.GetDocumentsPath http://docwiki.embarcadero.com/Libraries/XE4/en/System.IOUtils.TPath.GetDocumentsPath为了Documents
文件夹,以及TPath.GetLibraryPath http://docwiki.embarcadero.com/Libraries/XE4/en/System.IOUtils.TPath.GetLibraryPath得到Library
文件夹位置。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)