0

Abbrevia で zip ファイル アイテムのパスを削除することはできますか? ソースコードを見た後、ファイルのパスを削除する方法が見つかりません。誰かがこれをやろうとしましたか? もしそうなら、どのように?

EDIT 各ファイルのパスがアーカイブに保存されている TAbListView に zipfile の内容を表示しています。[soStripDrive] に設定された StoreOptions を使用してアイテムが zip ファイルに追加されたため、パスは 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] := '';

したがって、圧縮されたアイテムにはパスがありません。

4

1 に答える 1