RunWait: проверка запущенных приложений на ошибки при выполнении

[lebedeff]

RunWait запущено для выполнения приложение, которое в свою очередь запускает еще одно приложение. Задача состоит в том чтобы проконтролировать процесс выполнения двух запущенных приложений и в случае возникновения какой либо ошибки прекратить их выполнение. Заранее признателен за помощь в решении задачи.

 

[madmasles]

Re: RunWeit: проверка запущенных приложений на ошибки при выполнении

lebedeff,
Попробуйте так:

$sProcess_1 = 'Setup_1.exe'
$sProcess_2 = 'Process_1.exe'
$sDir = @ScriptDir

$iPID = Run($sDir & '\' & $sProcess_1)
If Not $iPID Then
	MsgBox(16, 'Error', 'Error ' & $sProcess_1)
	Exit
EndIf

While 1
	;здесь проверяйте то, что Вам надо
	;If что-то не так Then
	;	ProcessClose($sProcess_1)
	;	ProcessClose($sProcess_2)
	;	MsgBox(16, 'Error', 'Error')
	;	Exit
	;EndIf
	If (Not ProcessExists($iPID) And Not ProcessExists($sProcess_2)) Then ExitLoop
	Sleep(20)
WEnd
MsgBox(64, 'Info', 'OK')

RunWait() ждет, пока не завершится запущенный процесс.

 

[lebedeff]

madmasles

Спасибо за быстрый ответ. Предложенный Вами вариант решения задачи не совсем подошел, поскольку запущенные приложения не успевают выполнить необходимые операции до продолжения работы скрипта. Получается нужно чем то "озадачить" скрипт до момента завершения работы запущенных Run приложений.