5

我让应用程序在加载应用程序时显示其指定的背景图像。然后它在启动时运行此代码崩溃:

  // 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
  ;

这是我得到的错误:

在此处输入图像描述

4

1 回答 1

3

问题是您使用错误的方法来获取位置。

切换到 using System.IOUtils.TPath, usingTPath.GetHomePath获取主文件夹,TPath.GetDocumentsPath用于Documents文件夹,并TPath.GetLibraryPath获取Library文件夹位置。

于 2013-07-23T12:33:31.687 回答