0

是否可以使用 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] := '';

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

4

1 回答 1

0

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

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

于 2013-07-29T01:00:36.533 回答