delphi - VCLZip：询问是否应覆盖只读文件

Question

我正在使用 VCLZip 2.21 解压缩 zip 文件。我可以通过将 ReplaceReadOnly 设置为 True 来使 TVCLUnzip 覆盖只读文件。但是如何实现用户的确认呢？我已经添加了一个 OnSkippingFile 处理程序将 Retry 设置为 True 但这不会导致额外的尝试。（AFAICT 永远不会读取 Retry 变量。）您有什么建议吗？

Answer 1

在我看来，你不应该改变ReplaceReadOnly。相反，设置OverwriteMode为Prompt，然后处理该OnPromptForOverwrite事件。在这种情况下，检查文件是否是只读的，如果是则只提示。

否则，您可以在设置之前尝试OnSkippingFile在事件处理程序中更改文件的只读标志Retry，但文档没有说明Retry在这种情况下使用该参数。它只讨论在无法打开要压缩文件的压缩操作期间重试，而不是在解压缩操作期间重试。