VFP_等待 rar 命令结束

*环境：VFP8、XP SP3
lcCMD = '"D:\WinRAR3.0\WinRAR.exe" a "c:\Logo.rar" "c:\Logo.bmp"  -ep'        &&压缩

oWsh = CreateObject("wscript.shell")
oWsh.Run(lcCMD, 0, .T.)    &&隐藏程序窗口，等待程序运行完毕，再运行下一条命令
*窗口显示模式取值：
* Hide = 0                 '不显示窗口
* MaximizedFocus = 3       '最大化显示，并设置为活动
* MinimizedFocus = 2       '最小化显示，并设置为活动
* MinimizedNoFocus = 6     '最小化显示
* NormalFocus = 1          '正常显示，并设置为活动
* NormalNoFocus = 4        '正常显示
Messagebox("压缩完毕！", 0+64, "信息")