[Vayrus]

Учимся пользоваться гуглом и тп, вот пример с SendMessageTimeout:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  H : THandle;
  lngReturnValue : longint;
  DWResult : DWORD;
begin
  H := FindWindow('Notepad', nil);
  if H > 0 then
  begin
    lngReturnValue := SendMessageTimeout(
      H, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK,
      1000, DWResult
    );
    if lngReturnValue > 0 then
      ShowMessage('Responding')
    else
      ShowMessage('Not responding');
  end
  else
    ShowMessage('Application not found');
end;

Вот здесь же пример на сайте с использованием IsHungAppWindow:
http://www.delphisources.ru/pages/fa...response2.html

Проверку по таймеру прикрутить уже сможешь сам