Danke dir Matthias
Es lag aber nicht an dem abmakecab.close sondern abmakecab.filename := ...
So nun meine Lösung:
Das mit dem Cabs{..} ganz weg lassen
Man erstellt nun die Datei beim einfügen der ersten Datei :
Delphi-Quellcode:
opendialog2.Execute;
abmakecab1.FileName := neupfad+'.cab'; // das darf nicht mit in die Schleife
i2 := opendialog2.Files.Count;
for i := 0 to i2-1 do begin
neudatei := Extractfilename(opendialog2.Files[i]);
item := slistview2.Items.Add;
item.Caption := neudatei;
item.SubItems.Add(Extractfilename(neupfad)+'\'+neudatei);
abmakecab1.AddFiles(Extractfilename(opendialog2.Files[i]),0);
abmakecab1.CloseArchive;
end;
Gruß Mathias
// Hätte eher nachfragen müssen, hab nun 2 1/2 an dem Problem gesessen. ^^