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