1. 程式人生 > >如何不解壓zip檢視其中的檔案列表(使用vclzip)

如何不解壓zip檢視其中的檔案列表(使用vclzip)

var
  icount:Integer;
begin
  with VCLUnZip1 do
  begin
    ZipName := Self.CheckListBox1.Items[Self.CheckListBox1.itemindex];
    ReadZip;

   
   for icount := 0 to count-1  do
   begin
    CheckListBox2.Items.Add(FullName[icount]);
   
    end;
  end;
end;