Отслеживание процессов, запускаемых другим процессом

[Drag]

Приветствую всех. Помогите, пожалуйста, с такой проблемой - смысл в том, что моя программа запускает другую программу по ярлыку:

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

    Dim SHInfo As SHELLEXECUTEINFO
    SHInfo.hWnd = Me.hWnd
    SHInfo.lpVerb = "open"      'Нам надо открыть файл
    SHInfo.cbSize = LenB(SHInfo)    'Указываем размер всей структуры
    SHInfo.lpFile = LNK_PATH & Item.Key & ".lnk"    'Формируем полный путь к ярлыку
    SHInfo.fMask = SEE_MASK_NOCLOSEPROCESS  'Это указываем, что хотим следить за окончанием процесса...
    SHInfo.nShow = SW_SHOW
    Call ShellExecuteEx(SHInfo)     'Собственно, запускаем


И затем ожидает окончания его выполнения. Но проблема в том, что другая программа запускает другой процесс, а сама завершается. И я хотел спросить - можно ли как-то при ожидании завершения процесса учитывать не только данный процесс, но также процессы, запущенные этим процессом? Понятно, что для этого надо использовать WaitForMultipleObjects, но вот как получить хэндлы на другие процессы, я не знаю.
Единственное, что мне приходит в голову - после завершения ожидания просмотреть все процессы, проверяя их родительский процесс, и ждать и его завершения... Но не думаю, что это правильный выход...

[Twister]

Понятно, что для этого надо использовать WaitForMultipleObjects, но вот как получить хэндлы на другие процессы, я не знаю.

Перечислить дочерние процессы, открыть каждый из них, получив хэнлды, и ждать. Я так понимаю Вам способ перечисления процессов? Тогда Вам сюда.

[Хакер]

Зачем сразу туда?

[Twister]

Зачем сразу туда?

Там есть несколько способов перечислить процессы

[Хакер]

Вполне достаточно тулхелп-снапшота.

[Twister]

Вполне достаточно тулхелп-снапшота.

Угу. Но я же всегда стараюсь дать дополнительную информацию для расширения кругозора

[SLIM]

Угу. Но я же всегда стараюсь дать дополнительную информацию для расширения кругозора

Отличная статья!!! Твои старания оправданы

[Drag]

Спасибо! . Извиняюсь за долгое молчание, только сейчас нашлось время... Правда, подобное не для всего подошло, так как некоторые запускаемые программы делают просто пинг-понг запусков, которые отследить вряд ли получится, так что, думаю, лучше будет искать нужный исполняемый файл в списке запущенных процессов...
И вопрос немного не в тему, но все же...
После этого кода я получаю handle созданного процесса с помощью SHInfo.hProcess. В Windows 7 это работает, а вот в Windows XP по какой-то причине все время возвращается 0, хотя процесс успешно запускается и функция возвращает ненулевое значение. Если не трудно, подскажите, как быть? Не хочется верить, что это из-за разных версий shell32.dll.
И да, ShellExecuteEx мне пришлось использовать по той причине, что только она умеет запускать ярлыки и одновременно умеет получать handle процесса.

[Twister]

Тут надо на код смотреть.

[Drag]

Ну, код я написал в первом посте. Проблему удалось решить, извлекая путь с параметрами из ярлыка и используя Shell. Но все же интересно - из-за чего же так...
Если все же нужен полный код - вечером выложу .

[Twister]

Не обязательно hProcess будет заполнен, даже с указанием флага SEE_MASK_NOCLOSEPROCESS. В мсдн же все написано:

hProcess
HANDLE

A handle to the newly started application. This member is set on return and is always NULL unless fMask is set to SEE_MASK_NOCLOSEPROCESS. Even if fMask is set to SEE_MASK_NOCLOSEPROCESS, hProcess will be NULL if no process was launched. For example, if a document to be launched is a URL and an instance of Internet Explorer is already running, it will display the document. No new process is launched, and hProcess will be NULL.

Note ShellExecuteEx does not always return an hProcess, even if a process is launched as the result of the call. For example, an hProcess does not return when you use SEE_MASK_INVOKEIDLIST to invoke IContextMenu.