Определить появление меню Пуск

[tsar_]

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

[MotoArhangel]

А тебе это зачем? Если не секрет)

[tsar_]

Расширяю кругозор...
В инете есть конкретные примеры программного вызова и закрытия меню Пуск, а вот как отловить его появление и потом, скажем, закрыть (да, пишу шуточную программу для друга ). Или еще что-то (безобидное!).
Буду рад конкретным советам и предложеням.

[asmodey1]

Как запретить системное меню

Отключаем:

SetWindowLong(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button',nil),GWL_ID,-1);

Включаем снова:

SetWindowLong(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button',nil),GWL_ID,304);

Было уже недавно...
А контролировать... ну, например, по таймеру проверять видимость окна.

[tsar_]

Как раз, как отключить/включить, я знаю. Думал, есть, сообщение какое, чтоб перехватить...