[Gragl]

Благодарю всех за Вашу поддержку!
Буду пользоваться VBS by Iska

[YuS_2]

Ну тогда ещё вариант на powershell, с возможностью слежения за несколькими процессами, с кнопкой на прекращение слежения (процесс powershell через батник запускается в скрытом режиме):
run.bat

Код:

@echo off
powershell -ex bypass -w hidden -c "&{.\script.ps1 'notepad.exe','win32calc.exe'}"

script.ps1

script.ps1

Код:

[cmdletbinding()]
param(
	# Список на выключение можно задать в командной строке: 
	# .\script.ps1 'notepad.exe','win32calc.exe'
	# или здесь:
	[string[]]$process = ('example1.exe','win32calc.exe')
)
add-type -assembly system.windows.forms

function enable-watchevent {
	$query = new-object system.management.wqleventquery '__instancecreationevent', `
	(new-object timespan 0,0,1),'targetinstance isa "win32_process"'
	$processwatcher = new-object system.management.managementeventwatcher $query
	$action = {
		new-event 'powershell.processcreated' -sender $sender -eventarguments $eventargs.newevent.targetinstance
	}
	$script:name = 'watchevent'
	$script:id = 'powershell.processcreated'
	$script:job = register-objectevent -input $processwatcher -eventname `
	"eventarrived" -action $action -source $name

}
enable-watchevent


$form = new-object windows.forms.form
$form.autosize = $true
$form.autosizemode = [windows.forms.autosizemode]::growandshrink
$form.formborderstyle = [windows.forms.formborderstyle]::fixedtoolwindow
$form.controlbox = $false
$form.sizegripstyle = [windows.forms.sizegripstyle]::hide
$form.text = 'Продолжить слежение за процессом' + ' ' + $process + '?'
$form.showintaskbar = $false
$form.topmost = $true
$form.startposition = 'CenterScreen'


$btnyes = new-object windows.forms.button
$btnyes.text = 'Да'
$btnyes.location = new-object system.drawing.point(3,10)
$btnyes.dialogresult = [windows.forms.dialogresult]::ok
$form.controls.add($btnyes)

$btnno = new-object windows.forms.button
$btnno.text = 'Нет'
$btnno.location = new-object system.drawing.point(110,10)
$btnno.dialogresult = [windows.forms.dialogresult]::no
$form.controls.add($btnno)

do{
	wait-event $id|out-null
	if($process -contains ($a = (get-event $id).sourceargs.name)){
		write-host Запущен $a
		ps $($a -replace '\.[^\n\.]*$')|kill
		remove-event $id
		$res = $form.showdialog()
	} else {
		write-host Это не процесс из списка на выключение `((get-event $id).sourceargs.name`)
		remove-event $id
	}

} while ($res -ne 'No')
if(get-event $id -ea 0){remove-event $id}
get-job $job.name|remove-job -force

[Iska]

YuS_2, «win32calc.exe» — это, случайно, не новое имя исполняемого файла старого доброго Калькулятора под ОС Windows 10?

[YuS_2]

новое имя исполняемого файла старого доброго Калькулятора под ОС Windows 10? »

оно самое

[Iska]

YuS_2, спасибо, ясно. А то я там на днях по привычке сделал Win-R, calc.exe, Enter и был неприятно удивлён результатом.

[YuS_2]

А то я там на днях по привычке сделал Win-R, calc.exe, Enter и был неприятно удивлён результатом. »

calc.exe тоже присутствует, для обратной совместимости, но это только заглушка для запуска win32calc.exe
в общем, скучать индусы не дадут.

[Iska]

YuS_2, стоп. Говоря «старый и добрый», я имел в виду обычный Калькулятор, а не его богомерзкую Modern (или как оно там нынче именуется) инкарнацию:

Скрытый текст

Получается — его больше нет?

[YuS_2]

а не его богомерзкую Modern (или как оно там нынче именуется) инкарнацию »

не знаю... у меня такой:

[Iska]

Хмм… Попробую завтра «пощупать».