delphi - 使用 Abbrevia 删除 zip 文件项路径

Question

是否可以使用 Abbrevia 删除 zip 文件项的路径？查看源代码后，我找不到删除文件路径的方法。有没有人尝试过这样做，如果是这样，怎么做？

编辑 我在 TAbListView 中显示 zipfile 的内容，其中每个文件的路径都存储在存档中。这些项目被添加到 zip 文件中，StoreOptions 设置为 [soStripDrive]，因此该路径存储在 TAbListView.Items.Item[I].Subitem[9] 中，用于 zip 文件中的每个文件。我正在寻找剥离路径，然后保存存档，以便所有文件都没有路径。

移除前的路径

TAbListView.Items.Item[0].Subitem[9] := \DelphiXE4\Projects\Abbrevia\Unit1.pas

TAbListView.Items.Item[1].Subitem[9] := \DelphiXE4\Projects\Abbrevia\Unit1.dfm

移除后的路径

TAbListView.Items.Item[0].Subitem[9] := '';

TAbListView.Items.Item[1].Subitem[9] := '';

所以压缩物品没有任何路径。

Answer 1

AFAICT，如果不实际提取文件然后将其放回而不首先存储路径，则无法更改存档（zip）中的名称。

尝试和更改它的明显地方是TAbZipItem.StoredPath，但这是只读的；usingTAbZipItem.FileName在编译和运行时工作正常，但没有效果。您在其中所做的TAbsListView任何事情都不会改变任何事情，因为它只是显示内容，与底层 zip 存档无关。