Noch mal zu Zip Archiven

[BeBored]

So habe ich das bei mir gemacht:

Delphi-Quellcode:

var
  index: integer;
begin
ZipForge1.FileName := 'C:\Archiv.zip';
ZipForge1.OpenArchive(fmCreate);
for index := 0 to Listbox1.Items.Count - 1 do
  begin
    ZipForge1.BaseDir := Listbox1.Items.Count[index];
    ZipForge1.AddFiles('*.*');
  end;
ZipForge1.CloseArchive;
end;

Grüsse

Matthias