procedure TForm1.Button2Click(Sender: TObject);
var
Arch: I7zOutArchive;
AFileName: string;
begin
if odAll.Execute and sd7z.Execute then
begin
Arch := CreateOutArchive(CLSID_CFormat7z, '7za.dll');
SetCompressionLevel(Arch, 9);
SevenZipSetCompressionMethod(Arch, m7LZMA);
if eContraseña.Text <> '' then
Arch.SetPassword(eContraseña.Text);
Memo1.Lines.Clear;
for AFileName in odAll.Files do
begin
Arch.AddFile(AFileName, '');
Memo1.Lines.Add(AFileName);
Memo1.Update;
end;
Memo1.Lines.Add(StringOfChar('=', 30));
Memo1.Lines.Add('Finalizado');
Arch.SaveToFile(sd7z.FileName);
end;
end;