Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

Получение 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.011 c
14-60843
MJH
2002-07-23 19:23
2002.08.19
FreeSoft


3-60492
Radimir
2002-07-29 12:11
2002.08.19
Господа, помогите с запросом


1-60716
Ura
2002-08-06 16:29
2002.08.19
Help. TQuickRep при создании 3-ей страницы валится.


8-60753
Fast
2002-04-11 11:54
2002.08.19
Я что-то упустил.


6-60788
Delphi 5.01
2002-05-27 20:53
2002.08.19
Chitaem i zapisivaem s ftp servera





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский