[hasherfrog]

Kuper
Все гениальное просто
Вот только все же мне не совсем понятно кое-что. Получается, что нажатие на Hide-all просто вызывает рассылку SC_MINIMIZE всем окнам. Кто их игнорирует, не сворачивается. Но как тогда работают программы по обработке всяких там Антибосс-кеев и т.д. (а их полным-полно в сети). Например (первое попавшееся)
http://www.pssoftlab.com/onlinehelp/...ditional.phtml
обещает ни много, ни мало, а

Now you can minimize any application to a system tray.

[vasketsov]

hasherfrog

нажатие на Hide-all просто вызывает рассылку SC_MINIMIZE

Нет. Для коректной работы Application Bar (панель приложений) там рассылается мессага ДО и мессага ПОСЛЕ этого. Вот ее тебе и надо отлавливать. На www.msdn.com про это есть в разделе APP BAR MESSAGES, точнее сказать не могу.

[hasherfrog]

vasketsov
На самом деле решение нужно не мне, а Kuper. Я лишь подкидываю бестолковые идеи, которые, увы, не могу проверить сам: у меня сейчас нет MsVS дома.
Вот еще одна бредовая идея: я проверил действие "свернуть все" на WinAmp'е. Очень интересно - когда от находится в режиме StayOnTop, то не сворачивается. Теперь мне интересено, не может ли этот флаг влиять на дефолтную реакцию окна на сворачивание? Или это винАмп просто "знает методы на костю сапрыкина"?

[JCooper]

Прошу прощения за долгое молчание, дешевые свичи говорят сами за себя.
Итак, народ, все очень просто:

Код:

SetWindowPos(Application.Handle, HWND_TOPMOST, left, top, width, height, SWP_HIDEWINDOW);

Именно с такими параметрами, получаем несворачиваемое окно, располагающееся поверх всех.
Но мне надо этот эффект в немного извращенном варианте, т.е. чтобы окно было не поверх всех окон, а наоборот снизу.

[JCooper]

Меня уже глючит, теперь не могу перехватить сообщение при сворачивании окна из таскбара. Help me!

[JCooper]

Блин тут удалили дублирующую тему, но вопрос остался. Обратиться больше некуда. Жду помощи )

[JCooper]

Эх поднимаем старые темы
Не могу въехать почему не работает???? Не выскакивает мессага!!!

Код:

  private
     { Private declarations }
     procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.WMSize(var msg: TWMSize);
 begin
   If msg.Sizetype = SIZE_MINIMIZED then
     ShowMessage('Window MINIMIZED');
   inherited;
 end;