让Delphi的TZipFile压缩类支持压缩密码的扩展类

有些人可能已经知道，Delphi（至少从XE2起）附带了一个内置的TZipFile类，用于读写zip文件。这是一个只是功能有限的一个相当基础的类，但这对于日常工作来说可能就够了。 在最近将项目从Delphi 7迁移到Delphi 10.1 Berlin之前，我正在面临着要修复当前基于外部DLLzip实现或者重新实现一个TZipFile的决定。第二个选择也将具有摆脱必须DLL的优点。 那么，一如以往，当你认为你找到了正确的解决方案并开始编码 - 现实的步骤。我们必须读取的一些zip文件是密码保护的。不幸的是，TZipFile不支持密码加密。 摆脱这种外部依赖是诱人的，改变使用TZipFile的非加密用例很简单。如果切换到市场上其它库，似乎太多的努力而获得的收益很少。所以我修改了自己实现加密部分的想法。老实说，多难？ 幸运的是，在这种特殊情况下，我们只需要读取这些加密的zip文件，所以以某种方式实现解密部分就足够了。查看TZipFile的技术文档，我实际上在文档中找到了如何实现这一点的说明。