| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сообщения

juiceman ©   (2004-04-07 17:13:00) 

Есть 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;

И никакой реакции (((

---

juiceman   (2004-04-07 22:35:00) [1]

Тю ... )
Сделал по-простому, без компонентов всяких:

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

...

procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
 Memo1.Lines.Add('wm_hook');
end;

Работает. Почему через компонент не работало интересно...

---

juiceman   (2004-04-07 21:04:00) [2]

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

---

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

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

---

juiceman   (2004-04-07 18:15:00) [4]

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

---

Anatoly Podgoretsky   (2004-04-07 17:23:00) [5]

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

---

Наверх