Два неубиваемых exe'шника

[Veiron]

Смысл в том, что в одной папке например есть два исполняемых файла a.exe и b.exe, с помощью автозагрузки они оба запускаются, и нужно сделать так, что бы каждый процесс a и b следили друг за другом и при случае не обнуружения второго первый его автоматически запускал.

Т.е. например если пользователь выключил процесс a.exe, процесс b.exe его заного запускает и наоборот.

[Terran]

Можете сделать так:

(Программа a)
Uses
   ShellApi;
Procedure TForm1.Timer1Timer(Sender: TObject);
Var
H: HWND;
Begin
H:=FindWindow(Nil, 'Заголовок проги b');
If H<>0 Then
Exit;
ShellExecute(Application.Handle, 'Open', Pchar('Путь к проге b') ,Nil, Nil, SW_SHOWDEFAULT);
End;

Аналогично делается в программе b, только измените заголовок на заголовок программы a и путь к a программе.

[Air]

Имя окна может измениться если у пользователя проблемы со шрифтами, добавь проверку по имени процесса. Если не в памяти, то запустить.
И не забудь, что пользователь может переименовать a.exe и b.exe, поставь постоянную проверку имён, чтоб проги знали, что грузить в следующий раз.
А что бы убить их, достаточно закрыть одновременно. (ну или почти одновременно)

[Alter]

А если их вдвоём сразу завершить, оно успеет сработать? Например AnVir Task Manager может сразу несколько процессов завершать.

[Air]

если проверка стоит на 1-10 мкс то может и не успеет.
P.S. можно сделать 3 проги для уверенности

[JTG]

А лучше 5 Делать что-то "по таймеру" не самое лучшее решение, практически всегда есть способ отследить нужный момент для выполнения действия.

CreateProcess -> WaitForSingleObject -> GetExitCodeProcess
пример тут http://programmersforum.ru/showthread.php?t=44773

[Veiron]

Сейчас с этим загвоздка произошла но вроде справлюсь, смысл в том что в автозапуск поставил эти два файла и после загрузки системы они сами себя начинают грузить по нескольку раз а там еще и таймер короче переполнение памяти и комп в паралич, надо наверно один процесс поставить на автозагрузку.

Очень хочется конечно без таймеров, но пока нужно быстрое решение, по тому как компьютеры слабые. Пользователь наврятли найдет эти два exe'шника, сделал их системно скрытыми.

ShellExecute заменил на WinExec что бы работало даже при отсутствии DirectX.

Но там без таймера все равно не получится (кажется), т.к. первая "главная" программа каждые 0,5с. ищет "третий" процесс и убивает его, если он есть.

[Stilet]

если проверка стоит на 1-10 мкс то может и не успеет

Зато какие тормоза будут ))))))))

ИМХО, плохая идея... Наступал я уж на эти грабли...
выход такой:
1. Либо службу делать
2. Либо запускать процессы с правами, запрещающими их закрывать кому-попало и не попало

Пользователь наврятли найдет эти два exe'шника, сделал их системно скрытыми.

Не смеши... Найдут... Наступал я на эти грабли уже, и посему прятал Экзешник в папку, которую пользователь открыть по доступам не мог.

[JTG]

Сообщение от Veiron

ShellExecute заменил на WinExec что бы работало даже при отсутствии DirectX.

Убило под стул
Выкинь таймеры и смотри код в примере выше

[Veiron]

Сообщение от JTG

Убило под стул
Выкинь таймеры и смотри код в примере выше

Учитывая, что код здесь только один, именно в нем и заменял Шел на Вин, ибо там (на рабочих машинках) напрочь извыкарежен DirectX и Шел процедуры на них не работают.

Сообщение от Stilet

выход такой:
1. Либо службу делать
2. Либо запускать процессы с правами, запрещающими их закрывать кому-попало и не попало

Не смеши... Найдут... Наступал я на эти грабли уже, и посему прятал Экзешник в папку, которую пользователь открыть по доступам не мог.

1. Службу делать, там к сожалению обойти это просто.
2. Вариант с правами неубиваемог процесса это вообще идеально, но как так запускать, темболее программно не знаю.

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