请教VCLZIP控件压缩目录的方法

Question

请教VCLZIP控件压缩目录的方法
有目录：C:\111,  111文件夹内有：文件 1.exe,2.exe 以及另一文件夹 222,文件夹222内有文件 3.exe,4.exe...，请教如何打压缩包为111.zip,
111.zip 又可解压缩为 111文件夹，里面的文件和222文件夹的结构不变谢谢！！！

Answer 1

帮你up.
我刚装了vclzip5分钟.也有你这个问题.好像是什么地方需要设置.熟悉的人帮楼主和我回答一下吧.

Answer 2

with VCLZip1
  IncludeHiddenFiles:=true;
  IncludeSysFiles:=true;
  IncludeReadOnlyFiles:=true;
  IncludeArchiveFiles:=true;  StorePaths:=true;  RootDir:='c:\mdr';
  ZipName:='c:\mdr.zip';
  //TempPath:='C:\temp';
  FilesList.Add('*.*');  Recurse:=true;
  showMessage('ZIPed files:'+IntToStr( Zip));
end;

Answer 3

procedure TForm1.btnVCLUnZip1Click(Sender: TObject);
begin
  with VCLUnZip1
    ZipName:='c:\mdr.zip';
    DestDir:='C:\mdr_Test';
    DoAll:=true;
    FilesList.Add('*.*');
    RecreateDirs:=true;    showMessage(IntToStr( UnZip) );
  end;
end;