En nem løsning vil være at du lægger rar filen ind i programmet som en ressource. Til det kan du bruge Windows Ressource Compiler. Så kan ud i dit program gøre noget ala dette:
var rs, fs: TStream;
begin
if savedialog1.execute then
begin
fs := TFileStream.Create(savedialog1.filename, fmCreate or fmOpenWrite);
rs := TResourceStream.Create(hInstance, 'rarfil', RT_RCDATA);
rs.seek(0, soBeginning);
fs.CopyFrom(rs, rs.Size);
rs.Free;
fs.Free;
end;
end;
Jeg kan ikke lige huske hvordan du bruger det