как убить сообщение об ошибке по класу, но не промахнутся?

[Pirotexnik]

procedure TForm1.Timer2Timer(Sender: TObject);
var 
cls:   pchar;
h:     hwnd;
begin
h:=GetActiveWindow;
getmem(cls,50);
GetClassName(h,cls,50);
if cls='#32770' then begin
 EndDialog(h,0);
end;
end;

убивает окно клас которого #32770

Но таких око дофига, например окно выбора файла...
Сканировать слово в заголовке - БРЕД! Их очень очень "дофига"
чё делать?

[Ntlegend]

если окон класа #32770 очень много то как сканировать заголовок - очень простой выход.. обычно в заголовке присутствует слово "ошибка"
и тогда

//s - переменная куда заносим заголовок окна
if pos('Ошибка', s)>0
 then ShowMessage('У нас окно ошибки');

[Pirotexnik]

а как добавить несколико слов?Например hlds error ошибка и тп

[Ntlegend]

напиши сложное условие типа

((pos('слово 1', s)>0)or(pos('слово 2', s)>0)or...(pos('несколько слов', s)>0))

[Pirotexnik]

А можно все эти слова присвоти переменной? Например "er"
И как потом будет выглядеть проверка
Тоесть

if cls='#32770' and 'слово1' or 'слово 2' or 'несколько слов' then begin

Только ка правильно написать?

[Pirotexnik]

Во всё придумал!
СПС

 if (cls='#32770')and((Pos('ошибка',s)<>0)or(Pos('error',s)<>0)or(Pos('hlds',s)<>0)or(Pos('fatal',s)<>0)or(Pos('server',s)or(Pos('Dedicated',s)<>0)<>0)) then