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