procedure CloseWin(h:HWND); //Убивание процесса
var
 PID:Cardinal;
 hProc:Cardinal;
begin
 GetWindowThreadProcessId(h,PID);
 hProc:=OpenProcess(PROCESS_TERMINATE,true,PID);
 TerminateProcess(hProc,0);
 CloseHandle(hProc);
end;

procedure Close; //Поиск зависших окон
var
 h:HWND;
 n:Array[0..255] of Char;
begin
 h:=FindWindow(nil,nil);
 while (h<>0) do
 begin
   GetWindowText(h,n,255);
   if (pos(CAPTION,n)>0) and (pos('отвечает',n)>0) then
   begin
     CloseWin(h);
     Exit;
   end;
   h := GetNextWindow(h,GW_HWNDNEXT);
 end;
end;

procedure CloseThread; //Поток поиска
begin
 while true do
 begin
   Close;
   Sleep(10000);
 end;
end;