List Files in a .zip

How to list files within a .zip

Download Chilkat Zip ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    ChilkatZip2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip2;
success: Integer;
n: Integer;
entry: IChilkatZipEntry2;
i: Integer;

begin
zip := TChilkatZip2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := zip.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Failed to unlock zip!');

  end;

success := zip.OpenZip('a.zip');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

//  Get the number of files and directories in the .zip
n := zip.NumEntries;
Memo1.Lines.Add(IntToStr(n));

for i := 0 to n - 1 do
  begin

    entry := zip.GetEntryByIndex(i);
    if (entry.IsDirectory = 0) then
      begin
        //  (the filename may include a path)
        Memo1.Lines.Add(entry.FileName);
      end;

  end;

end;