Как закрыть наглое активное окно?

[MotoArhangel]

Как закрыть активное окно, которое в наглую становится активным 3 раза подряд?

var
  Window,Window1 : HWND;
  i:integer;
begin
  i:=0;
  if GetForegroundWindow = Application.MainForm.Handle //если моя прога скрывается
    then
      Window := GetForegroundWindow;// записываем название активной проги
      while i<3 do    //цикл
        begin
          form1.FormStyle:=fsStayOnTop; //ставим окно сново поверх
          if GetForegroundWindow = Application.MainForm.Handle //если же снова скрывается
            then Window1 := GetForegroundWindow; //записываем имя активной проги
              if Window = Window1 then i:=i+1  // cравниваем
         end;
  SendMessage(Window, WM_SYSCOMMAND, SC_CLOSE, 0); //Если цикл закончился закрываем активное окно
end;

Что не так?

[Человек_Борща]

в событи OnActivate или OnShow формы добавь такой код:

with Form1 do
begin 
  SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

и при активации/показе окна, оно станет поверх всех других.

Чтобы убрать это, флаг HWND_TOPMOST замени на HWND_NOTOPMOST и окно станет нормальным.

подробное описание флагов смотри в Windows SDK (Help > Windows SDK), указателем найди SetWindowPos и читай описание.

[MotoArhangel]

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

[Человек_Борща]

Что мешает заюзать TTimer с интервалом 500 мс?

А у наглово окна должен быть как минимум класс окна и заголовок. При помощи FindWindow все решается.

[MotoArhangel]

Дак я не хожу простыми путями)
Вопрос был поставлен по поводу закрытия активного окна, а не становления моего окна поверх всех.

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

в вашем коде помоему перепутано = с <>, а то у вас выходит будно если ваше окно активное, то тогда оно скрывается, не стыковочка.

[MotoArhangel]

А код то все равно не работает(
Помоги а, может другой вариант есть?

[Человек_Борща]

If FindWindow(ClassName,Caption) = GetForegroundWondow then

Если хендл окна котроое соответствуе классу и заголовку сейчас активно..
Тебе осталось узнать класс и заголовок окна.
используй Spy++ но мне достаточно и вот этой утилиты: http://rouse.drkb.ru/winapi.php#wndinfo см. wndinfo

[MotoArhangel]

Спасибо сделал)