** 使用 ** ** ShellExW.dll ** ** 中的 ** ** ShellExecWait ** ** 函数同步调用 ** ** DOS ** ** 命令 **
在很多项目中都需要调用外部命令，但是使用 VFP 的 RUN 命令、 VB 中的 Shell 命令或者调用 Win32Api 的 WinExec 函数这些方法都是异步执行，不但有些命令难于控制执行窗口的外观，而且使用后不知道执行的结果，往往要采用其他检测的手段才能保证程序正确的运行。现在我们可以使用 ShellExW.dll 中的 ShellExecWait 函数来解决这个问题。
下面分别列举在 VB 和 VFP 两种环境下的声明和调用该方法，使用 RAR 来压缩文件。
** VB ** ** 版： ** **
**
声明：
Public Declare Function ShellExecWait Lib "ShellExW.dll" (ByVal lpProgName As String, ByVal lpParms As String, ByVal n_ShowWinMode As Long, ExitCode As Long) As Long
调用：
Dim a As Long, b As Long
b = 0
‘ 可能是声明有些错误，所以执行完成后会报错。请知道 VB 下声明方法的朋友补充。谢！但是这样可以不影响正常使用。
On Error Resume Next
a = ShellExecWait(".\rar.exe" & String(1, 0), " a test.rar test.doc" & String(1, 0), 0, b)
If a <> 0 Or b <> 0 Then
Err.Raise 10001, , " 压缩失败 "
End If
** VFP ** ** 版： ** **
** 声明：
DECLARE INTEGER ShellExecWait IN ShellExW.DLL STRING lpProgName, STRING lpParms, SHORT n_ShowWinMode, INTEGER @ExitCode
b = 0
a = ShellExecWait(".\rar.exe"+CHR(0),"A test.rar test.doc"+CHR(0),0, b)
if a <> 0 .or. b <> 0 then
messagebox(“ 压缩失败 ”)
endif