为Delphi提供的压缩库文件,与PKZIP2X兼容,具有密码保护等功能。在win10+Rad10.4下仅delphi可以安装,c++builder安装完没有控件。
1、安装组件
2、托出一个TZipForge组件,并name=ZipForge1
3、压缩代码:
//压缩制定路径中所有文件
void compressFile(AnsiString srcDir, AnsiString dstFile)
{
ZipForge1->FileName = dstFile;
ZipForge1->OpenArchive();
ZipForge1->BaseDir = srcDir;
ZipForge1->AddFiles("*.*");
ZipForge1->CloseArchive();
}
4、解压代码:
//解压压缩文件到制定路径
void unCompressFile(AnsiString srcFile,
AnsiString dstDir) {
ZipForge1->FileName = srcFile;
ZipForge1->OpenArchive();
ZipForge1->BaseDir = dstDir;
ZipForge1->ExtractFiles("*.*");
ZipForge1->CloseArchive();
1