Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Получение Broadcast сообщений   Найти похожие ветки 

 
Burmistroff   (2002-06-15 15:24) [0]

Добрый день. Подскажите пожалуйста, как правильно принимать сообщения HWND_BROADCAST?
Я делаю так:

...
protected
procedure DefaultHandler(var Message); override;
...
var
WM_MY: DWORD;
...

function mApp(var Message: TMessage): integer;
begin
windows.Beep(500, 500);
message.Result:=3;
end;

procedure TForm1.DefaultHandler(var Message);
begin
with TMessage(Message) do
begin
if msg=WM_MY then mApp(TMessage(Message)) else
inherited DefaultHandler(Message);
end;
end;

initialization
WM_MY:=RegisterWindowMessage("MReady");
end.


т.е. по идее, результат должен быть = 3, но он почему-то всегда = 1
вот как я отправляю сообщение (из другой программы):


procedure TForm1.Button1Click(Sender: TObject);
var
wm_my, i: integer;
begin
wm_my:=RegisterWindowMessage("MReady");
i:=SendMessage(HWND_BROADCAST, WM_MY, 77, 2); //i всегда равно 1
messagebox(0, pchar(inttostr(i)), "Capt", MB_YESNO);
end;

Так как же все таки правильно принять и обработать широковещательное сообщение?


 
Alexander Vorobyov   (2002-06-17 10:36) [1]

Попробуй использовать ReplyMessage(3) для возврата значения 3.



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-60645
SinnerPro
2002-08-08 06:42
2002.08.19
MultiLanguage


14-60831
_Smart
2002-07-20 03:07
2002.08.19
Помогите с продвижением софта в массы...


1-60617
Вэн
2002-08-08 14:54
2002.08.19
Раблта в Интернет


1-60661
demona
2002-08-09 04:57
2002.08.19
есть ли компонент как ColorGrid, но с , хотя бы, 256 цветами?


1-60727
BlackSun
2002-08-07 10:20
2002.08.19
Почтовый клиент