文件名称：MyZip.dll 压缩 解压缩
文件大小：189KB
文件格式：RAR
更新时间：2012-01-26 09:37:22
dll,压缩,PB
文件名:MyZip.dll 函 数: ************************************************** *** *** *** 压缩文件 *** *** *** ************************************************** 1. Function MyZip_AddFile(SrcFile,ZipFile:pchar):integer;stdcall; 功能 : 将文件SrcFile添加到压缩文档ZipFile 参数 : SrcFile 待压缩文件(全路径) Zipfile 目标文件(全路径) 返回 : <0 失败 >0 成功 说明 : 同名文件将自动被替换(overwrite) 2. Function MyZip_AddDirectory(SrcPath,ZipFile:pchar):integer;stdcall; 功能 : 将目录SrcPath里的所有文件(子目录)添加到压缩文档ZipFile 参数 : SrcPath 待压缩目录(全路径) Zipfile 目标文件(全路径) 返回 : <0 失败 >0 成功 说明 : 同名文件将自动被替换(overwrite) ************************************************** *** *** *** 解压缩文件 *** *** *** ************************************************** 1. Function MyZip_ExtractFileAll(ZipFile,PathName:pchar):integer;stdcall; 功能 : 将ZipFile中包含的所有文件解包到文件夹PathName 参数 : ZipFile 压缩文件(全路径) PathName 文件输出路径(如果不存在,则自动创建该目录) 返回 : <0 失败 =0 压缩文件中未包含任何文件 >0 解包的文件数量 说明 : 同名文件将自动被替换(overwrite) 2. Function MyZip_ExtractFile(ZipFile,srcName,DstName:pchar):integer;stdcall; 功能 : 从ZipFile中将由SrcName指定的文件解包到由DstName指定的目标文件 参数 : Zipfile 压缩文件(全路径) SrcName 需要解包的文件(不包含路径) DstName 目标文件(全路径) 返回 : <0 失败 =0 压缩文件中未包含SrcName >0 成功 说明 : 同名文件将自动被替换(overwrite) ************************************************** *** *** *** 获取错误信息 *** *** *** ************************************************** 1. Function MyZip_GetLastError(out msg : ShortString):integer;stdcall; 功能 : 在压缩/解压的过程中,如有错误发生,可立即调用该函数获取相关错误信息,并由msg返回 参数 : msg 用于返回相关错误信息 返回 : <0 失败 >0 成功
【文件预览】：
PB.txt
MyZip.dll