[prosto_virus]

Архив не удаляется, т.к как он открыт

Код:

1 2 3 4 5 6 7 8 9 10

Zip := TZipFile.Create; try Zip.Open(opendialog1.filename, zmWrite); Zip.Add(opendialog2.filename,file);  finally   Zip.Free;   Zip.Close; end; //-------- deletefile(opendialog1.filename);