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

[Somebody]

Только

GetWindowThreadProcessId(hWND, PID);

потому что возвращает она id потока, а не поцесса.

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

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

Самый простой абстрактный пример - TreeView

Если у нитей нет овер9000 видимых окон, то проблем не будет т.к. функция вернет ID потока который явл. основным.

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

Человек_Борща, вы чего курили?
параметры функции прочитайте, и что она делает, а потом уже чтото говорите.
пытаться открыть поток это нонсенс...

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

Ой, что-то перепутал..
Переделал:

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;

[Stilet]

Программа GUI

Я чето пропустил?