你好:
我是giagia,我刚刚收到别人的贴子。现转告你。
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Const INFINITE = &HFFFF
Const PROCESS_QUERY_INFORMATION = &H400
Private hProcess As Long
Private ExitEvent As Long
Public Sub CalDosExe()
dim Pid
Pid = Shell(YourDosFileName, vbNormalNoFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, Pid)
ExitEvent = WaitForSingleObject(hProcess, INFINITE)
Call CloseHandle(hProcess)
End Sub