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