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;