2011年5月3日
VCLZIP 使用
摘要： 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 阅读全文
posted @ 2011-05-03 10:05 九月的海 阅读(703) 评论(0) 推荐(0)