使用ShellExW.dll中的ShellExecWait函数同步调用DOS命令

使用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