KaZip Dateien packen

[Gehstock]

Edit so gehts

Delphi-Quellcode:

 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
      ExportFiles.Items.add(Open.FileName);
//      Kazip1.AddFile(Open.FileName);
      Kazip1.CreateZip('test.sdt');
      Kazip1.FileName:='test.sdt';
      KAZip1.Active:=true;
      Kazip1.AddFile(Open.FileName);
//        KAZip1.Comment:=ExportFiles.Items;
        KAZip1.Active:=false;
         Kazip1.Close;

allerdings packt er jetzt alle ordner mit ins archiv

also pfad ist c:\dateien\1\test.exe

dann sieht das zip so aus
ordner "dateien"->ordner"1"->und dann erst das file
es soll aber nur das file sein