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

ЧеловекБорща

Дата 24.12.2010, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет

Всем привет!

Как проверить висит ли консольное приложение?

функция IsHungAppWindow предложенная в ЭТОЙ теме
не работает с консольными программами или программами запущенными в консольном режиме.

допустим есть консольная программа с кодом:

Код


program Console;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

begin
  Sleep(infinite);
end.

определяется:

Код


function GetAppHandle(ProcessId: THandle): THandle;
var
  Handle: THandle;
begin
  Result := GetTopWindow(0);
  while Result > 0 do
  begin
    GetWindowThreadProcessId(Result, Handle);
    if (Handle = ProcessId) and (GetParent(Result) = 0) then
      Break;
    Result := GetNextWindow(Result, GW_HWNDNEXT);
  end;
end;

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;

function IsAppErroringState(PrcId: THandle): Boolean;
begin
  Result := IsHungAppWindow(GetAppHandle(PrcId));
end;

что она работает, хотя программа попросту висит гоняя процессор выполнять sleep бесконечно долго.

Если программа имеет окно то, все нормально работает.

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

Это сообщение отредактировал(а) ЧеловекБорща - 24.12.2010, 23:54

Sartorius

Дата 25.12.2010, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: нет
Всего: 37

Зависание приложения определяется по тому, что оно не отвечает на сообщения. В консольных приложениях цикла обработки сообщения нет и говорить о "зависании" тут нельзя. То что прога ничего на консоль не выводит не значит, что она зависла. То что основной поток приостановлен sleep тем более. Реально определить, что приложение вошло в какой-то цикл намертво или был deadlock можно только под отладчиком AFAIK

ЧеловекБорща

Дата 25.12.2010, 00:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет

Есть программы способные определять подвисания консольных приложений програмно.
Собстенно как решить ситуацию программно при помощи delphi?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »