"Windows" - это слово из языка апачей. В переводе означает: "Белый человек, глядящий через стеклянный экран на песочные часы."
var
FM_FINDPHOTO: Integer;
// Для того, чтобы использовать hwnd_Broadcast нужно// сперва зарегистрировать уникальное сообщение.initialization
FM_FindPhoto := RegisterWindowMessage('MyMessageToAll');
// Чтобы поймать это сообщение в другом приложении// (приемнике) нужно перекрыть DefaultHandlerprocedure TForm1.DefaultHandler(varMessage);
beginwith TMessage(Message) dobeginif Msg = Fm_FindPhoto then
MyHandler(WPARAM, LPARAM)
elseinherited DefaultHandler(Message);
end;
end;
// А теперь можно в приложении-передатчике
SendMessage(HWND_BROADCAST, FM_FINDPHOTO, 0, 0);
Кстати, для посылки сообщения дочерним контролам некоего контрола можно
использовать метод Broadcast.
Статья Как послать самостийное сообщение всем главным окнам в Windows раздела Программа и Интерфейс Главные формы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.