官网已经找不到了。
这个地址比较新
https://github.com/zedalaye/d7zip
在这个基础上 融合了 SevenZip.pas BUG修改版 - 20160613 - 堕落恶魔 - 博客园 https://www.cnblogs.com/hs-kill/p/3876160.html 然后再加了一些小的修改。 最后,提供一个比较全面的 例子。 【Delphi】从内存读取或解压压缩文件(RAR、ZIP、TAR、GZIP等)(一) - 峋山隐修会 - 博客园 http://www.cnblogs.com/caibirdy1985/archive/2013/05/13/4232949.html 【Delphi】从内存读取或解压压缩文件(RAR、ZIP、TAR、GZIP等)(二) - 峋山隐修会 - 博客园 http://www.cnblogs.com/caibirdy1985/archive/2013/05/14/4232948.html 7-zip Delphi API This API use the 7-zip dll (7z.dll) to read and write all 7-zip supported archive formats. - Autor: Henri Gourvest <hgourvest@progdigy.com> - Licence: MPL1.1 - Date: 15/04/2009 - Version: 1.2 Reading archive: Extract to path: 解压到目录: with CreateInArchive(CLSID_CFormatZip) do begin OpenFile('c:\test.zip'); ExtractTo('c:\test'); end; Get file list: 获取文件列表: with CreateInArchive(CLSID_CFormat7z, 'Formats\7z.dll') do begin OpenFile('c:\test.7z'); for i := 0 to NumberOfItems - 1 do if not ItemIsFolder[i] then Writeln(ItemPath[i]); end; Extract to stream 解压到流: with CreateInArchive(CLSID_CFormat7z) do