在Delphi XE4中>项目>部署我有一个名为“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;
答案 0 :(得分:0)
在Delphi论坛中找到了答案。路径是
GetHomePath + PathDelim + Application.Title + '.app' + PathDelim;