Open and Unzip an AES Encrypted Zip

Open and unzip an AES encrypted Zip.

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip2;
success: Integer;
unzipCount: Integer;

begin
zip := TChilkatZip2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := zip.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);
    Exit;
  end;

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

//  Set the password needed to unzip.
//  This password must match the password used when the zip
//  was created.
zip.SetPassword('myPassword');

//  Returns the number of files and directories unzipped.
unzipCount := zip.Unzip('c:/temp/aesUnzippedDir/');
if (unzipCount < 0) then
  begin
    ShowMessage(zip.LastErrorText);
  end
else
  begin
    ShowMessage('Success!');
  end;
end;