will wie gesagt ein archiv erzeugen mit ca 35 dateien
name der erstellten datei soll "test.sdt" sein
Delphi-Quellcode:
begin
with Open do begin//with OpenDialog
FilterIndex:=1;
InitialDir := ExtractFilePath(FileName);
FileName := ExtractFileName(FileName);
// DefaultExt := 'xbi';
// Filter := 'XBI files (*.xbi)|*.XBI|All files (*.*)|*.*';
// Title:='Open xbi File';
end;//with OpenDialog
if Open.execute then begin
KAZip1.Active:=true;
Kazip1.FileName := Open.FileName;
Kazip1.CreateZip('test.sdt');
KAZip1.Active:=false;
Kazip1.Close;
end;
end;
und dann halt für die anderen 38 dateien das selbe(geht das oder wird ein zuvor erzeugtes file überschrieben und nicht erweitert)
mit dem code wird nur eine leere datei erstellt
Alternativ auch mit
Delphi-Quellcode:
if Open.execute then begin
KAZip1.Active:=true;
// Kazip1.FileNames.add(Open.FileName);
Kazip1.AddFile(Open.FileName);
Kazip1.CreateZip('test.sdt');
KAZip1.Active:=false;
Kazip1.Close;
getestet ohne erfolg immer noch leeres archiv