Delphi Zip Component ZipForge

program ExtractFileFromZip;

{$APPTYPE CONSOLE}

uses
  SysUtils, ZipForge;

var
  archiver : TZipForge;

begin
  // Create an instance of the TZipForge class
  archiver := TZipForge.Create(nil);
  try
  with archiver do
  begin
    // The name of the archive file
    // from which we want to extract file
    FileName := 'C:\test.zip';
    // Because we extract file from an existing archive,
    // we set Mode to fmOpenRead
    OpenArchive(fmOpenRead);
    // Set base (default) directory for all archive operations
    BaseDir := 'C:\';
    // Extract test.txt file from the archive
    // to the default directory
    ExtractFiles('test.txt');
    CloseArchive();
  end;
  except
  on E: Exception do
    begin
      Writeln('Exception: ', E.Message);
      // Wait for the key to be pressed
      Readln;
    end;
  end;
end.