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

Previous  Top  Next

    
 

 

 

Code:

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.

 

АвторAndrey Burov

(2:463/238.19)

 

©Drkb::02317

Автор: StayAtHome

Взято с Vingrad.ru http://forum.vingrad.ru