摘要:
function Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean; //压缩或解压缩文件 var ziper:TVCLZip;begin//函数用法:Zip(压缩模式,压缩包大小,压缩文件,解压目录) //ZipMode为0:压缩;为1:解压缩 PackSize为0则不分包;否则为分包的大小 tryif copy(UnzipDir, length(UnzipDir), 1) = '\' thenUnzipDir := copy(UnzipDir, 1, length(UnzipDir) - 1); // 阅读全文