请在本论坛搜索关键字 rar

已有多次类似问题的回复

VFP中压缩工具WinRAR的调用 ------------------------------------------- 
压缩：DELETE FILE bak.jhz 
      RUN /N7 WinRAR.exe a -ibck -r -k -o+ -y -hp123 -p123 bak.jhz dbf\*.* 
或    RUN /N7 WinRAR.exe a -ibck -r -o+ -y -hp123 -p123 bak.jhz dbf\*.*
或    RUN /N7 WinRAR.exe a -ibck -ep1 -r -o+ -y -hp123 -p123 bak.jhz dbf\*.*
解压：RUN /N7 WinRAR.exe x -ibck -r -k -o+ -y -hp123 -p123 bak.jhz dbf\*.* 
或    RUN /N7 WinRAR.exe x -ibck -r -o+ -y -hp123 -p123 bak.jhz dbf\*.* 
参数说明： 
a:添加到档案文件中 
x:从档案文件中全路径释放文件 
-ibck:后台运行WinRAR 
-ep1:根据名字删除底层目录。不存储在命令行中输入的路径
-r:连同子文件夹操作 
-k:锁定档案文件 
-o+:覆盖已经存在的文件 
-y:对所有询问均回应为“是” 
-hp123:加密文件数据和文件头,密码为123 
-p123:设置密码为123,此密码上一个密码可以不一样 
bak.jhz:压缩后的文件名或要解压的文件（.jhz为自定义扩展名） 
dbf\*.*:要压缩的文件或要解压到的文件位置

如果要打开一个压缩文件的话,
FileName="ABC.RAR"
DECLARE INTEGER ShellExecute IN shell32.DLL ;
INTEGER HWND,STRING, STRING lpszFile, STRING, STRING, INTEGER
ShellExecute(0,"open",FileName,0,0,1)
此代码同样适用打开其它类型的文件，比如：
FileName="ABC.DOC" 打开WORD文档
FileName="ABC.XLS" 打开EXCEL文档等等