delphi解压带密码的zip

Delphi提供了一个 `TZipFile` 类来处理zip文件，但是它默认不支持解压带密码的zip文件。不过，我们可以使用第三方库 `zlib` 来实现解压带密码的zip文件。下面是一个示例代码：

uses
  System.ZLib, System.Zip;

procedure UnzipFileWithPassword(const ZipFileName, DestDir, Password: string);
var
  ZipFile: TFileStream;
  ZLibStream: TZDecompressionStream;
  Archive: TZipFile;
  Entry: TZipHeader;
  Buffer: array[0..1023] of Byte;
  BytesRead: Integer;
  DestFileName: string;
begin
  ZipFile := TFileStream.Create(ZipFileName, fmOpenRead or fmShareDenyNone);
  try
    ZLibStream := TZDecompressionStream.Create(ZipFile);
    try
      Archive := TZipFile.Create;
      try
        Archive.ReadZip64EndOfCentralDirectoryRecord(ZipFile);
        Archive.ReadZip64EndOfCentralDirectoryLocator(ZipFile);
        Archive.ReadZip64CentralDirectory(ZipFile);
        Archive.ReadCentralDirectory(ZipFile);
        for Entry in Archive do
        begin
          if Entry.IsEncrypted then
          begin
            Entry.Password := Password;
          end;
          DestFileName := TPath.Combine(DestDir, Entry.FileName);
          Archive.ExtractToStream(Entry, ZLibStream, TFileStream.Create(DestFileName, fmCreate));
        end;
      finally
        Archive.Free;
      end;
    finally
      ZLibStream.Free;
    end;
  finally
    ZipFile.Free;
  end;
end;

这里我们使用 `TZDecompressionStream` 来解压缩带密码的zip文件，并且需要设置每个文件的密码。注意，这种方式并不安全，因为密码明文存储在代码中。如果需要更安全的方式，可以考虑使用加密算法来存储密码。