This sample demonstrates how easy it is to create ZIP archives with ZipForge
Download ZipForge | Learn More | All Delphi samples
program ZipFile;
{$APPTYPE CONSOLE}
uses
SysUtils, ZipForge, Classes;
var
archiver : TZipForge;
begin
archiver := TZipForge.Create(nil);
try
with archiver do
begin
FileName := 'C:\test.zip';
OpenArchive(fmCreate);
BaseDir := 'C:\';
AddFiles('c:\test.txt');
CloseArchive();
end;
except
on E: Exception do
begin
Writeln('Exception: ', E.Message);
Readln;
end;
end;
end.
Download ZipForge | Learn More | All Delphi samples
|
|
|
Current version: 6.95
Released: January 21, 2019
Price: $ 69
|
|
I don't think I've ever had a better support experience in regard to any of the 3rd party tools we use.
Tim Stickley
|
|
|