Проверить висит ли консольная программа..

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

Всем доброго времени суток!

Вопрос:
как проверить зависло ли консольное приложение?

Функцию:

function IsHungAppWindow(Handle: THandle): Boolean;
type
  TIsHungAppWindow = function(Handle: THandle): Boolean; stdcall;
var
  IsHungAppWindow: TIsHungAppWindow;
begin
  Result := False;
  IsHungAppWindow := GetProcAddress(GetModuleHandle('user32.dll'), 'IsHungAppWindow');
  if Assigned(IsHungAppWindow) then
    Result := IsHungAppWindow(Handle);
end;

не предлогать. С консольками она не работает.

[Stilet]

По-моему это вообще не возможно... Сам смысл понятия "зависло" какой?
А может приложение не висит, а выполняет некий долгий цикл?

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

Да имеется ввиду это, или возникла ошибка из-за которой программа не подаёт признаков "жизни" и окон с ошибками.
Как быть в таких случаях?

С оконными программами использую InHungAppWindow функцию, и все нормально.

Как быть с консольками?