Перезапуск зависшего приложения

[Val Rubis]

Приложение постоянно зависает. И его приходиться вручную перезапускать? Как можно это дело автоматизировать?

[Aleksandr_59]

Написать программку, которая будет регулярно отслеживать состояние нужного приложения и перезапускать его в случае зависания.

[Пепел Феникса]

а ваше приложение то зависает?
может стоит его нормально сделать?

[Stilet]

Согласен. Стоит искоренить причину а не ее многочисленные последствия.

[Val Rubis]

Приложение не мое. Разработчика.... считайте, что его нет.
Как отслеживать состояние программы?
Я так думаю нужно получить какие то данные с нее. И если данные не получены, то видимо приложение зависло. Какие данные?

[Aleksandr_59]

Сообщение от Val Rubis

Как отслеживать состояние программы?
Я так думаю нужно получить какие то данные с нее.

Так, на вскидку, не смогу сказать. Можно, например, сдвинуть форму. Зависшая программа этого не сделает - при зависании она перестаёт реагировать на сообщения. Пример корявый, но смысл в том, чтобы отследить обработку сообщений ОС, посланные этой программе.

[Пепел Феникса]

смотря что за приложение и чем выяляете зависание вы сами.

[Человек_Борща]

Для GUI есть функция IsHungAppWindow

используйте её.

[Stilet]

Val Rubis

А действительно что делает приложение если не секрет?
Может проще настроить винду, мол если приложение не отвечает за определенное время пусть винда его гасит. И написать свою программу, которая каждую секунду будет мониторить приложение, и если оно не находится в процессах - запускать.
Думаю на этой основе возможен еще один вариант (я правда не ручаюсь за достоверность). Идея такая - через CreateProcess запустить то злополучное приложение и через WaitForSingleObject ждать его завершения. Когда винда поймет что приложение не отвечает - процесс будет снят, WaitForSingleObject расстопорит процесс, который то приложение запускал, а это значит нужно еще раз по кругу запустить через CreateProcess.

[Человек_Борща]

Stilet, зачем? Это же геморой, для окон в самой системе много интересных функций.
Программа GUI и если она "висит" то цикл оконных сообщение не работает, и стоит нам сделать IsHunAppWindow или SendMessageTimeout и мызнаем что программа в дауне..

Другое дело, когда программист далек от синхронизации потоков, долгих операций и VCL тогда другой вопрос6
Программа висит, или это долгая операция перевешивает VCL и стопорит цикл...

кладете таймер далее такой код:

var
  hWND:THandle;
  hProccess:DWORD;
  PID:DWORD;
begin
  PID:=0;
  hWND:=0;
  hProcess:=0;
  hWND:=FindWindow(nil,PChar('Название окна'));
  if hWND <> 0 then
  begin
   if IsHungAppWindow(hWND) then
   begin
    GetWindowThreadProcessId(hWND, @PID);
    if PID <> 0 then 
    begin
    hProcess:=OpenProcess(PROCESS_TERMINATE,False,PID);
    try
      if hProcess <> 0 then
      begin
      
     if not TerminateProcess(hProcess,0) then
     ShowMessage('Failed to terminate target hung process') else
     begin
       ShellExecute(...) //перезапускаем процесс...
     end;
     end;
    finally
       CloseHandle(hProcess);
    end;
    end;
   end;
  end;
end;