SOS！！！我用Shell调用DOS程序时出现“该方式独占DOS模式，其他程序将关闭”如何解决？

[jinkai]

我的程序是下面这样的
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：[e-mail]

[ml_zhang]

这是我做的一个调用外部EXE文件的过程，经过很多人用都没发现问题，可能你没有将变量PROCESS_QUERY_INFORMATION和INFINITE付值吧，如果是
Const INFINITE = &HFFFF
Const PROCESS_QUERY_INFORMATION = &H400
也不行的话，你可以将PROCESS_QUERY_INFORMATION 改为 &H100，试一下。