Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Как послать самостийное сообщение всем главным окнам в Windows

Автор: Nomadic



var
  FM_FINDPHOTO: Integer;

  // Для того, чтобы использовать hwnd_Broadcast нужно
  // сперва зарегистрировать уникальное сообщение.

initialization
  FM_FindPhoto := RegisterWindowMessage('MyMessageToAll');

  // Чтобы поймать это сообщение в другом приложении
  // (приемнике) нужно перекрыть DefaultHandler

procedure TForm1.DefaultHandler(var Message);
begin
  with TMessage(Message) do
  begin
    if Msg = Fm_FindPhoto then
      MyHandler(WPARAM, LPARAM)
    else
      inherited DefaultHandler(Message);
  end;
end;

// А теперь можно в приложении-передатчике
SendMessage(HWND_BROADCAST, FM_FINDPHOTO, 0, 0);

Кстати, для посылки сообщения дочерним контролам некоего контрола можно использовать метод Broadcast.

           


Нашивки. Шевроны на заказ: шевроны нашивки. . Пищевая упаковка. Недорого: Полипропиленовая лента для упаковки. Выбираем пластиковые окна. . предлагаем недорогие туры в тайланд, отдых . Онлайн игра Зов Дракона: реальные пацаны 4 сезон смотреть онлайн. Юмористические стихи, рассказы. .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011