Узнать о завершении программы

[d3drm]

Гармонь, но все же. Видел тему когда-то на форуме с такой же тематикой, но не нашел.

Открываю через Shell (..., ...) программу, нужно выполнить какие-то действия после ее завершения. Как узнать что программа звершилась? Возможно ли запустить программу так, чтобы каждая ее форма была поверх материнсткой программы?

[GSerg]

Кхм кхм.

По-моему, что-то случилось с ув. тов. d3drm
В поиск!!! По кирпичам.

[Konst_One]

в поиск конечно могу послать

вот кусок, остальное сам найдешь:

Код: Выделить всё

Public Function SystemExecute(ByRef CmdLine As String, Optional Show As WindowStyle = SW_NORMAL) As Long
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
Dim Res As Long
 
  ' Initialize the STARTUPINFO structure:
  start.cb = Len(start)
  start.dwFlags = STARTF_USESHOWWINDOW
  start.wShowWindow = Show
 
  ' Start the shelled application:
  Res = CreateProcessA(0&, CmdLine$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)

  ' Wait for the shelled application to finish:
  Res = WaitForSingleObject(proc.hProcess, INFINITE)
  Call GetExitCodeProcess(proc.hProcess, Res)
  Call CloseHandle(proc.hThread)
  Call CloseHandle(proc.hProcess)
  SystemExecute = Res
End Function

[d3drm]

господа, не поймите превратно! сложно искать что-то не зная ключевых слов. Я в системном программировании дуб-дубом, это факт. Но по слову SystemExecute нашел как раз полный код.

GSerg, Konst_One, благодарю!

[GSerg]

Ыыыыы... по слову waiter ты исходный код не нашёл?

[d3drm]

GSerg, кто бы мог подумать, что интересующая меня тема найдется по слову "официант"

[Amed]

d3drm смишной

[GSerg]

(c) d3drm!

[Amed]

Да кто уже только это не говорил.
Хотя первым, конечно, был сам.

Пардон за оффтопик.

[d3drm]

навели здесь флуда! закрываю тему! где моя панелька администратора?

вот, невезуха... опять Гайдар забрал... говорил же ему, берешь - клади на место... безолаберный... никакой ответственности перед другими администраторами...