windows가 shellexecute 요청을 큐에 저장하지 못하도록 함

Question

Win.ShellExecute 0, "open", "C:\dir\program.exe", "arguments", vbNullString, SW_SHOWNORMAL 
Win.ShellExecute 0, "open", "http://www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL 

program.exe의 실행 여부에 관계없이 google.com을 열도록합니다. 이 문제를 어떻게 해결할 수 있습니까? 차라리 "시작"이라고 부르는 것을 피할 것입니다.

이 두 호출은 거의 즉시 발생하며 VB 프로그램은 계속 실행됩니다. 그러나 Vista와 XP 모두에서 google.com은 program.exe가 닫힐 때까지 열리지 않습니다. program.exe가 닫히기 전에 shellexecute을 호출 한 응용 프로그램이 닫히면 program.exe가 닫히면 google.com이 열립니다.

참고 :

내가 지금은 Program.exe 전화 doevents 100ms마다 또는 필요하면 문제를 해결하지만, 분명히이 다소 해킹의 것으로 나타났습니다.

참고 2 : 다음은 program.exe의 구현 예입니다. 예, program.exe를 변경하면이 문제가 해결됩니다 (즉 doevents 통화 추가).

Option Explicit  
Public Sub Main() 
    Do Until False 
     Sleep 100 
    Loop 
End Sub 

Answer 1

대신 CreateProcess를 사용해야 할 수도 있습니다.

Answer 2

당신이이

같이 보일 사용하는 당신이

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long 

코드를 완료 될 때까지 중단해야 할 경우 당신은 프로세스 API를 사용하는 대신에서 ShellExecute

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long 

Private Type PROCESS_INFORMATION 
     hProcess As Long 
     hThread As Long 
     dwProcessId As Long 
     dwThreadId As Long 
End Type 

Private Type STARTUPINFO 
     cb As Long 
     lpReserved As String 
     lpDesktop As String 
     lpTitle As String 
     dwX As Long 
     dwY As Long 
     dwXSize As Long 
     dwYSize As Long 
     dwXCountChars As Long 
     dwYCountChars As Long 
     dwFillAttribute As Long 
     dwFlags As Long 
     wShowWindow As Integer 
     cbReserved2 As Integer 
     lpReserved2 As Long 
     hStdInput As Long 
     hStdOutput As Long 
     hStdError As Long 
End Type 

할 수 있습니다

ReturnValue = CreateProcess(NullString, AppPathString, ByVal 0&, ByVal 0&, 1&, NORMAL_PRIORITY_CLASS, ByVal 0&, NullString, StartupInformation, ProcessInformation) 
Do While WaitForSingleObject(ProcessInformation.hProcess, 0) <> 0 
    DoEvents 
Loop 

Answer 3

내장형 Shell을 사용하여 프로그램을 시작한 적이 있습니까? xe, ShellExecute보다는? (나는 Win.ShellExecute이 같은 이름의 API 호출이라고 가정하고 있습니다. 질문에 선언을 포함 할 수 있습니다.)

또한 응용 프로그램에 양식을 제공하면 문제가 해결 될 수도 있습니다. 양식이없는 VB6 응용 프로그램에서 이상한 행동을했습니다.