In Delphi XE4 > Project > Deployment I have a reference to a file called "res.zip" It is set to be placed at remote path "res.zip"
However, "FileExists" returns false in underneath code (Running in iOS 6.1 simulator):
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;
Answer was found in Delphi forums. The path is
GetHomePath + PathDelim + Application.Title + '.app' + PathDelim;
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.