Показать сообщение отдельно
  #2  
Старый 23.07.2018, 16:49
dsqwared1 dsqwared1 вне форума
Прохожий
 
Регистрация: 19.07.2018
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

На делфи не делал, но такую задачу решал с помощью батника

Код:
 @echo off
setlocal ENABLEDELAYEDEXPANSION
Set Process1=ffmpeg-01
Set Process2=ffmpeg-02
Set Process3=ffmpeg-03
Set Process4=ffmpeg-04
Set Process5=scales
Set Process6=clear_files
tasklist | Find /i "%Process1%.exe" || (goto Else6)
:THEN
tasklist | Find /i "%Process2%.exe" || (goto Else6)
:THEN
tasklist | Find /i "%Process3%.exe" || (goto Else6)
:THEN
tasklist | Find /i "%Process4%.exe" || (goto Else6)
:THEN
tasklist | Find /i "%Process5%.exe" || (goto Else6)
:THEN
tasklist | Find /i "%Process5%.exe" || (goto Else6)
:THEN
tasklist | Find /i "%Process6%.exe" || (goto Else6)
:THEN
exit
Goto end

:ELSE6
echo Else6

taskkill /f /im "%Process1%.exe"
taskkill /f /im "%Process2%.exe"
taskkill /f /im "%Process3%.exe"
taskkill /f /im "%Process4%.exe"
taskkill /f /im "%Process5%.exe"
taskkill /f /im "%Process6%.exe" /T

 wscript.exe c:\Users\programist\Desktop\invisible.vbs c:\Users\programist\Desktop\cam1.bat 
 wscript.exe c:\Users\programist\Desktop\invisible.vbs c:\Users\programist\Desktop\cam2.bat 
 wscript.exe c:\Users\programist\Desktop\invisible.vbs c:\Users\programist\Desktop\cam3.bat 
 wscript.exe c:\Users\programist\Desktop\invisible.vbs c:\Users\programist\Desktop\cam4.bat 
 wscript.exe c:\Users\programist\Desktop\invisible.vbs c:\Users\programist\Desktop\clear_files.exe
 wscript.exe c:\Users\programist\Desktop\invisible.vbs c:\Users\programist\Desktop\scales.bat

Exit

и батник в планировщике заданий запускается каждую минуту
Ответить с цитированием