Run(@SystemDir & '\calc.exe') ; Окрываем процесс
$iPid = ProcessWait('calc.exe', 10)
If Not $iPid Then
MsgBox(16, 'Error', 'Не дождались :(')
Exit
EndIf
GUICreate('Ждем, пока закроется калькулятор...', 400, 300) ; Создаем окно
$hBut = GUICtrlCreateButton('Нажми!', 10, 10, 100, 30) ; Создаем кнопку (это вообще не обязательно)
GUISetState() ; Делаем окно видимым
While 1 ; Бесконечный цикл
Switch GUIGetMsg() ; Получаем сообщение окна
Case -3 ; Если хотели закрыть окно
TrayTip('Нет!', 'Сначала закрой калькулятор!', 2, 3)
Case $hBut ; Если нажата кнопка
TrayTip('Подсказка...', 'Закрой калькулятор', 2, 1)
EndSwitch
If Not ProcessExists($iPid) Then
ExitLoop
EndIf
WEnd ; Конец цикла
GUIDelete()
MsgBox(64, 'Info', 'Процесса нет')