Запретить окнам ставить в очередь запросы 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

Я хочу, чтобы google.com открывался независимо от того, работает ли еще program.exe. Как это исправить? Я бы предпочел избегать таких вещей, как называть «старт»

Оба эти вызова происходят практически мгновенно, и программа VB продолжает работать. Однако как в Vista, так и в XP сайт google.com не открывается до тех пор, пока не закроется program.exe. Если приложение, вызвавшее shellexecute, закрывается до закрытия программы.exe, google.com все равно откроется после закрытия программы.exe.

Примечание:

Я обнаружил, что вызов program.exe делает каждые 100 мс или около того решает проблему, но, очевидно, это своего рода хак.

Примечание 2: Ниже приведен пример реализации программы .exe. Да, я понимаю, что изменение program.exe исправит это (т.е. добавит вызов doevents).

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

Answer 1

Возможно, вы захотите использовать Process 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

Если вам нужно остановиться, пока это не сделано, вы это

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

Код для использования выглядит примерно так

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 2

Вы пытались использовать встроенную Shell для запуска Program.exe, а не ShellExecute? (Я предполагаю, что Win.ShellExecute - это вызов API с тем же именем - вы можете включить объявление в свой вопрос.)

Кроме того, tyranid правильно, что предоставление вашей анкеты может решить проблему. У меня было странное поведение от приложений VB6 без форм.

Answer 3

Я думаю, что вам, возможно, придется использовать CreateProcess вместо этого?