0

在 Delphi XE4 > Project > Deployment 我有一个名为“res.zip”的文件的引用它被设置为放置在远程路径“res.zip”

但是,“FileExists”在下面的代码中返回 false(在 iOS 6.1 模拟器中运行):

procedure TFormMain.InitCreate_Uncompress;
var
  H: string;
  P: string;
  Z: TZipFile;
begin
  H := GetHomePath;
  P := H + PathDelim + 'res.zip'; 
  if FileExists(P) then
    begin
      Z := TZipFile.Create;
      try
        Z.Open(P, zmRead);
        Z.ExtractAll(H + PathDelim + 'Library');
      finally
        Z.Free;
      end;
    end
  ;
end;
4

1 回答 1

0

在德尔福论坛中找到了答案。路径是

GetHomePath + PathDelim + Application.Title + '.app' + PathDelim;
于 2013-06-24T23:12:29.137 回答