哪位高手知道怎样用delphi把一些文件或文件夹打包成rar文件

Question

哪位高手知道怎样用delphi把一些文件或文件夹打包成rar文件。
我的数据库中有一个自段是存取某些文件的路径，如果数据库中有修改或添加是
将修改或添加的文件打成rar文件包
这些功能最好是在一个按钮中实现    最好有源码
对问题有帮助者给分

Answer 1

ShellExecute(Handle,'open','winrar.exe',PChar('a aa d:\temp\*.*'),'',SW_show);