VFP中压缩工具WinRAR的调用


（摘自网络）



作者:sibill 日期:2008-11-07

压缩：
　　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\*.*：要压缩的文件或要解压到的文件位置

注：
 *!* 于2008年11月16日从http://www.下载得到，经测试成功

 *!* 要将WINRAR.EXE和RarExt.dll二个文件拷贝到VFP应用程序所在的当前目录中，未装WINRAR软件的电脑上也可以使用了。

[ 本帖最后由 wengjl 于 2012-8-10 13:30 编辑 ]

  SELECT * from bmk where !EMPTY(xm) and !EMPTY(cszh)  into cursor tmpls readwrite
  SELECT tmpls
  APPEND FROM grbmk for !EMPTY(xm) and !EMPTY(cszh)
  COPY TO ('.\zp\bmk'+cxxdm+'.dbf')
  CLOSE DATABASES

 
  IF FILE('bmk'+cxxdm+'.rar')
    ERASE ('bmk'+cxxdm+'.rar')
  ENDIF
  RUN /n7 winrar.exe a -ibck  -r -k -o+ -y bmk&cxxdm..rar .\zp\*.*

 
  MESSAGEBOX('上报文件已生成，请将已打包的文件 “bmk'+cxxdm+'.rar” 上报科技竞赛报名管理组委会！！！',64,'提示：')

这是我程序中用到WINRAR的生成上报数据按钮里的部分代码
cxxdm 某个学校的代码变量，如001，则生成的数据表就是“BMK001.DBF”，放到ZP目录下后，与照片一起，压缩为BMK001.RAR上报