KAZip Open Archiv

[Sko]

Probiers mal so:

Delphi-Quellcode:

procedure Tfrm_main.Neuanlegen1Click(Sender: TObject);
begin
  // Archiv neu anlegen
  if SaveDialog1.Execute then
  begin
    myZipArchive.CreateZip(SaveDialog1.FileName);
    Zip.FileName := SaveDialog1.FileName; // < ob das unbedingt nötig ist weis ich nicht
    Zip.Active := true; // das ist aber nötig !
    Statusbar1.simpletext := ' Aktuelles Archiv: ' + SaveDialog1.FileName;
  end;                                                                 
end;

Um Dateien und Ordner hinzuzufügen eignet sich imho die Methode AddFilesAndFolders am besten. Also alle Dateien (kompletter Pfad) in eine StringList und folgendes:

Delphi-Quellcode:

  sl := TStringList.Create; // mal angenommen die TStringList-Variable heisst sl
  Pfad := 'C:\Blub\'; // ne Variable wo der Hauptpfad der Archivdateien drin steht
  try
    <StringList füllen> 
    myZipArchive.AddFilesAndFolders(sl,Pfad,true); // die Dateiliste und der Pfad werden übergeben, der dritte Parameter (true) bedeutet das auch Unterordner durchsucht und dem Archiv hinzugefügt werden (wenn in der StringList (sl) Ordner drin sind) 
  finally
    myZipArchive.Active := false;
    myZipArchive.Close;
    sl.Free;
  end;