截取我以前的一段代码,仅供参考:
UnZipper:= TVCLUnZip.Create(nil);
UnZipper.ZipName:=ZipFileName;
UnZipper.Password := zippwdStr;
UnZipper.DestDir:=ExtractFileDir(UnZipper.ZipName);
UnZipper.OverwriteMode:=Always;
UnZipper.DoAll:=true;
UnZipper.UnZip;
UnZipper.Destroy;