Закрыть чужую программу при завершении своей.

[Anton911]

Всем привет. В общем такая проблемка нужно завершить чужую программу в тот момент, когда моя программа была завершена. С случаем обычного выхода из программы всё понятно. В событие формы OnClose пишем код закрытия программы. И это работает. Но если я открываю диспетчер задач и жму завершить процесс (моей программы), то до OnClose дело не доходит. Я уже пробовал писать dll'ку и загружать ее программой (LoadLibrary), а в ней по таймеру (Всмысле поток+while) проверять запущена ли моя программа, таймер то такой работает. Короче не помогает! Как же это сделать правильно? Или шамански.

Попробую покачто сделать две программы, одна запускает другую, и одна завершается если вторая убилась. А заодно они будут и чужую програмку килить. Щас поизвращаюсь.

[Anton911]

Сделал две програмки, одну закинул в ресурсы к другой. При запуске второй она распаковывает первую и запускает. Далее они контролируют друг друга. В общем всё работает. Но неужели нельзя сделать по другому? Без двух программ.

[raxp]

если я открываю диспетчер задач и жму завершить процесс

мало кто из рядовых пользователей так закрывает программы, разве что зависшие. Чем вызвана такая необходимость?

[Anton911]

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

мало кто из рядовых пользователей так закрывает программы, разве что зависшие. Чем вызвана такая необходимость?

Делаю античитерский лаунчер для игры. Если пользователь каким-либо образом закроет этот лаунчер запущеная игра также должна быть завершена.

[raxp]

...а что мешает запустить игру без вашего лаунчера?

[develsnik]

вот пример.
Надо немного переделать
http://www.delphisources.ru/pages/so...closeprog.html

[Kix.IV]

А реализовать это в игре не можешь?

[Anton911]

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

...а что мешает запустить игру без вашего лаунчера?

На игровом сервере стоит пароль. Пользователь незнает пароль. Лаунчер знает. Поэтому без лаунчера никак не соединишся. Если соединишся и ЗакроешьЛаунчер\Читеришь, тогда TerminateProcess.

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

вот пример.
Надо немного переделать
http://www.delphisources.ru/pages/so...closeprog.html

Немного не то. Получается как убить процесс я знаю. Но проблемка была, если через диспетчер задач убить лаунчер, то лаунчер не успивал убить игру. Покачто решил эту проблему используя две программы. Одна лежить в ресурсах у другой. Та что в ресурсах распаковывается при запуске первой и запускается. Далее они проверяют друг друга. Если одна из них не запущена, то убивают игру и друг друга.

Сообщение от Kix.IV

А реализовать это в игре не можешь?

Игра не моя)

[Slym]

могу ошибаться не помню точно
если приложение запускает Job и в jobе другое приложение то при кончине первого закроется job со всем содержимым внутри
CreateJobObject
AssignProcessToJobObject
+JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE

http://yandex.ru/yandsearch?text=JOB...L_ON_JOB_CLOSE

тут через дебаг
http://forum.vingrad.ru/topic-188313.html

[Anton911]

Позновательно. Попробовал сделать через дебаг. Игра запускается. Попробовал запустить с несколькими параметрами. Запустилось. Но когда дописал параметры "-connect=ip -port=2302". По идее должна соединяться напрямую с сервером, а получил неожиданную бесконечную загрузку.

procedure TExecDebug.Execute;
var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
  ed: DEBUG_EVENT;
begin
  FreeOnTerminate := true;
  FillChar(si, sizeof(si), 0);
  si.cb := sizeof(si);
  if CreateProcess(nil, PWideChar(FArg),
                   nil, nil, FALSE, DEBUG_ONLY_THIS_PROCESS,
                   nil, nil, si, pi) then begin
    while not Terminated do begin
      if not WaitForDebugEvent(ed, 0) then
      application.ProcessMessages;

      case ed.dwDebugEventCode of
        EXIT_PROCESS_DEBUG_EVENT: ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
        CREATE_THREAD_DEBUG_EVENT:ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
        EXIT_THREAD_DEBUG_EVENT:ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
        LOAD_DLL_DEBUG_EVENT:ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
        UNLOAD_DLL_DEBUG_EVENT:ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
        OUTPUT_DEBUG_STRING_EVENT:ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
     else
      ContinueDebugEvent(ed.dwProcessId, ed.dwThreadId, DBG_CONTINUE);
      end;
    end;
    CloseHandle( pi.hThread );
    CloseHandle( pi.hProcess );
  end;
end;

P.S. ошибки в параметрых исключены. Через батник всё отлично запускается. Через ShellExecute тоже. И через OpenProcess если ставить не дебаг а нормал приорити.