Немогу закрыть окно по класу и имени

[Pirotexnik]

procedure TForm1.Timer2Timer(Sender: TObject);
var cls:Pchar;
    h:hwnd;
    s:string;
begin
 h:=GetActiveWindow;
 getmem(cls,50);
 GetClassName(h,cls,50);
 SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0)+1);
 SendMessage(h, WM_GETTEXT, length(s), Integer(PChar(s)));
 SetLength(s, lStrLen(PChar(s)));
 if (cls='32770')and((Pos('error',s)<>0)or(Pos('hlds',s)<>0)or(Pos('Dedicated',s)<>0)) then EndDialog(h,0);
end;

Вот как пытаюсь закрыть, но не получается. Клас такой! Всё проверил. Что не так?

[S@fer]

Попробуй так

PostMessage(h, WM_QUIT, 0, 0);

[Stilet]

if (cls='32770')

А про # не забыл?
Вообще поставь бряк на if и посмотри выполняются ли условия.

[Pirotexnik]

Сообщение от Stilet

А про # не забыл?
Вообще поставь бряк на if и посмотри выполняются ли условия.

Как это бряк?

[Stilet]

Бряк это breackpoint - точка остановки. Поставиш ее, и прога дойдя до нее перейдет в отладку. ТАм можно глянуть чему равны переменные и подкорректировать.