如何将不同文件夹下的多个文件压缩成一个(50分)

望高手将源代码发送于lvrui0127@sina.com,感谢。

我有一个带源码的控件和demo 发给你了，安装直接install componment 即可

用VCLZip组件吧，在Google里面搜索一下把！

感谢两位大哥，cnaoszh大哥的东西已经收到，再次感谢，我也想使用vclzip组件，但是不会将他和1stclass结合起来使用，达到在目录树下面选中要打包的几个文件，然后用zip的方法存放起来，再次感谢，望给出解答。

我也用过压缩，不过那VCLZIP我是怎么也没看懂，就把个DOS下用的RAR给找来了，通过shellexecute来调用，反正任务是完成了，用户也没觉得不好，吼吼。
备份： ShellExecute(0,nil,PChar(ExtractFilePath(Application.ExeName)+'rar/rar.exe'),PChar('a -o+ '+BackupPath+'/'+BackFile+' '+ExtractFilePath(Application.ExeName)+'data/*.*'),PChar(ExtractFilePath(Application.ExeName)),SW_Minimize);
恢复：ShellExecute(0,nil,PChar(ExtractFilePath(Application.ExeName)+'rar/rar.exe'),PChar('x -o+ '+BackFile+' *.* c:/'),PChar(ExtractFilePath(Application.ExeName)),SW_Minimize);

多人接受答案了。