如何用zip和unzip

[micromiao]

如何用zip和unzip

[whitewords]

问题不清，重新问过

[snowmiao2002]

用法如下：
With TZip do
begin
ZipName := filepath+'temp.zip';
FilesList.Add(filepath+'temp.mdb');
Recurse := True;
StorePaths := false;
PackLevel := 9;
Zip;
end;
//
With vclUnzip1 do
begin
ZipName := opendialog.filename;
ReadZip;
//检测是否为需要的文件名
for J:=0 to Count-1 do
begin
if FileIsOk[J] then
if FullName[J]<>'temp.mdb' then
begin
showmessage('选择的文件内容错误，请重试!');
exit;//？？
end
end;
//设置解压缩
DoAll := true;
DestDir := filepath;
RecreateDirs := False;
RetainAttributes := True;
//获得解压缩结果
descint:=Unzip;
if descint>0 then