This sample demonstrates how to extract files from ZIP archives with ZipForge
Download ZipForge | Learn More | All Delphi samples
program UnzipFile;
{$APPTYPE CONSOLE}
uses
SysUtils, ZipForge;
var
archiver : TZipForge;
begin
archiver := TZipForge.Create(nil);
try
with archiver do
begin
FileName := 'C:\test.zip';
OpenArchive(fmOpenRead);
BaseDir := 'C:\temp';
ExtractFiles('*.*');
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
|
|
The other people in the office didn't believe me when I said that all I had to do was document the problem and you would probably give me a fix overnight. Unbelievable! Keep up the great work. I hope you guys all make a fortune out of this product because it is truly fantastic and the support is the best I have ever encountered.
Mark Kefford
|
|
|