watch looker на Делфи

[sasha_dreval]

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

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

ну смотря что считать зависанием, то что интерфейс не реагирует не на что?

[wm_leviathan]

function AppIsResponding(h:HWND): Boolean;
const

TIMEOUT = 5000;
var
Res: DWORD;
begin

if h <> 0 then
Result := SendMessageTimeOut(H,WM_NULL,0,0, SMTO_ABORTIFHUNG or SMTO_NOTIMEOUTIFNOTHUNG,TIMEOUT, Res) <> 0
else
result:=false;
end;
function IsAppRespondigNT(wnd: HWND): Boolean;
type
TIsHungAppWindow = function(wnd:hWnd): BOOL; stdcall;
var
hUser32: THandle;
IsHungAppWindow: TIsHungAppWindow;
begin
Result := True;
hUser32 := GetModuleHandle('user32.dll');
if (hUser32 > 0) then
begin
@IsHungAppWindow := GetProcAddress(hUser32, 'IsHungAppWindow');
if Assigned(IsHungAppWindow) then
begin
Result := not IsHungAppWindow(wnd);
end;
end;
end;

function IsAppRespondig(Wnd: HWND): Boolean;
begin
if not IsWindow(Wnd) then
begin
result:=false;
Exit;
end;
Result := IsAppRespondigNT(wnd)
end;
.....
h:=findwindow(PCHAR('TForm1'),'test application');

if (IsAppRespondig(h))and(AppIsRespond ing(h)) then showmessage('yes') else
showmessage('no');

[sasha_dreval]

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

[NoSilence]

как вариант,

Монитор <> Приложение
отсылка запроса (SendMessage) <> ответ на сообщение (SendMessage)

Если ответа нету в течении заданного времени, то приложение зависло. Если ответ не "единичка", то цикл не выполнился. Далее по плану.