Deinen Code verstehe ich, aber bei mir spuckt er eine Fehlermeldung aus...
Delphi-Quellcode:
...
procedure TForm1.Button2Click(Sender: TObject);
var
index: integer;
begin
ZipForge1.FileName := 'C:\Archiv.zip';
ZipForge1.OpenArchive(fmCreate);
for index := 0 to Listbox1.Items.Count - 1 do //<<<Array-Typ erforderlich
begin
ZipForge1.BaseDir := Listbox1.Items.Count[index];
ZipForge1.AddFiles('*.*');
end;
ZipForge1.CloseArchive;
end;
Mfg
mozZzI