使用Abbrevia删除zip文件项路径

Question

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

修改 我在TAbListView中显示zipfile的内容，其中每个文件的路径存储在存档中。这些项目已添加到zip文件中，StoreOptions设置为[soStripDrive]，因此路径存储在zip文件中每个文件的TAbListView.Items.Item [I] .Subitem [9]中。我希望剥离路径，然后保存存档，以便没有文件有路径。

删除前的路径

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，但这是只读的;使用TAbZipItem.FileName在编译和运行时工作正常，但没有效果。你在TAbsListView做的任何事都不会改变任何东西，因为它只是显示内容而与底层的zip档案无关。