сообщения

← →
juiceman © (2004-04-07 17:13) [0]

Есть 2 приложения, первое должно посылать сообщение второму.
Отрывки кода первого:
procedure TForm1.Button2Click(Sender: TObject); begin if FindWindow("TForm1","Form1")<>0 then ShowMessage("finded!") else ShowMessage("not finded!"); end;
<<Этой кнопкой проверяю нормально ли находится окно второй программы, находится оно нормально

А вот сама процедура отправки:
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr( SendMessage(FindWindow("TForm1","Form1"),WM_USER+1, 1, 1) )); end;
---второе приложение:--------------------------
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message=WM_USER+1 then begin Memo1.Lines.Add("wm_hook"); end; end;
И никакой реакции (((

← →
Anatoly Podgoretsky © (2004-04-07 17:23) [1]

А оно дожно получать, какие основания для этого?

← →
juiceman © (2004-04-07 18:15) [2]

Извините, тупой я, книжка дома лежит( а своих мозгов нету. Подскажите в чем проблема - хоть в посыльщике или приемщике ???

← →
Игорь Шевченко © (2004-04-07 18:26) [3]

Смени в одном приложении имя формы с TForm1 на TSenderForm хотя бы.

Ну эт понятно, если честно то я вообще сообщение отправляю из функции-фильтра хука, чтобы смотреть чего я там отлавливаю.
???

Тю ... )
Сделал по-простому, без компонентов всяких:
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
procedure TForm1.WMGetSysCommand(var Message : TMessage); Begin Memo1.Lines.Add("wm_hook"); end;
Работает. Почему через компонент не работало интересно...

сообщения Найти похожие ветки