关于压缩控件VCLZip，如何在B5中或在D5中安装和使用？？

Question

安装时请看它的帮助，当中有说明，是要先编译，再选中bpl文件来安装的。

Answer 1

代码如下，为什么ZIP
返回直procedure TForm1.OnClick(Sender: TObject);
var
 dir:string;
begin
    dir:= Edit1.Text;With VCLZip1 do
begin
ZipName := 'D:\BACKUP.ZIP';
FilesList.Add(dir);    // /* Zip all .PAS files */
Recurse := True; ///* Recurse directories */
StorePaths := True; ///* Keep path information */
PackLevel := 9; ///* Highest level of compression */
end;
 Edit1.Text:=inttostr(VCLZip1.Zip);end;是0!

Answer 2

我想你用的是D5，我用的是B5。
不知道你的dir:= Edit1.Text 指的是一个文件还是目录，
我记得，FilesList.Add(dir); 其中的dir，应该指定的是"*.*" 目录下所有文件或者是一个具体的文件名称。不包括路径。
在VCLZip1中专门有一个参数是指定源路径的。
好想是Root。你可以找一找。