Zip Kompression / Store wählen?

[gee21]

Hallo

Ich wollte fragen ob es eine einfache Möglichkeit gibt mit der "system.zip" die KompressionsOption wählen zu können?
Am Schluss brauche ich eine Zip Datei die nur "gespeichert" ist und nicht komprimiert (Store)

Delphi-Quellcode:

function zipFile(ArchiveName, Filename: String): boolean;
 var Zip:TZipFile;
begin
  Zip:=TZipFile.Create;
  try
   if FileExists(ArchiveName) then DeleteFile(ArchiveName);
   zip.Open(ArchiveName,zmWrite);
   zip.Add(Filename);
   zip.Close;
   Result:=true;
  except
   REsult:=false;
  end;
  FreeAndNil(zip);
end;