SOS!!!我用Shell调用DOS程序时出现“该方式独占DOS模式,其他程序将关闭”如何解决?
我的程序是下面这样的
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
但执行后,显示“该方式独占DOS模式,其他程序将关闭”,点“YES”后死机,望真正高手解决。我的EMAIL:jinkai123@sina.com