◆◆熟悉ZipTv的请进，这段程序执行后，怎么显示解压的文件是0？？◆◆

[anoblue]

安装ziptv for delphi5 后，执行下面程序解压
var
FilesExtracted :integer;
begin
unzip1.ArchiveFile :='d:\a.zip';
UnZip1.Filespec.Clear;
UnZip1.Filespec.Add( '*.*' );
UnZip1.ExtractDir := 'e:\temp';
FilesExtracted := UnZIP1.Extract;
end;
执行后，FilesExtracted 总是0，不知为什么，各位使用过的帮忙！！！！！！！！
我看了它自带的demo,似乎就这样解压，不对吗？？另，压缩能正常。

[anoblue]

就要离开公司回家了。up一次！

[anoblue]

'很简单的，只要....ok!'
我很希望有个人指点的
谢谢各位

[anoblue]

怎么了？