摘要：
function ComPressFile(dstFile,srcFile:string):Boolean;var vclzip:TVCLZip;begin Result:=False; vclzip:=TVCLZip.create(nil); try with vclzip do begin try ZipName:=dstFile; RecreateDirs:=true; //注意这里 StorePaths:=False; FilesList.Add(srcFile); Recurse := True; Zip; Result:=True; except Application.Messa 阅读全文
