TZIpFile unterstützt
diese Komprimierungen.
Wenn TZipCompression.zcLZMA verwendet wird, erscheint diese Meldung:
Zitat:
Support for compression method not registered: LZMA.
(D 10.3)
Mein Testcode:
Delphi-Quellcode:
uses
System.Zip;
procedure TForm1.zipClick(Sender: TObject);
const
f = 'c:\irgendwas.zip'; // output file
v = 'C:\temp' // Ordner, welcher komprimiert werden soll.
var
myZipFile: TZIpFile;
begin
if FileExists(f) then
begin
TFile.Delete(f);
end;
myZipFile := TZIpFile.Create;
myZipFile.Open(f, TZipMode.zmWrite);
myZipFile.Close;
myZipFile.Free;
TZIpFile.ZipDirectoryContents(f, v, TZipCompression.zcLZMA);
end;
Zusatzfrage: Welche Komprimierung verwendet Windows (10) ?