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

Вниз

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

← →
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 хотя бы.

---

← →
juiceman ©   (2004-04-07 21:04) [4]

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

---

← →
juiceman ©   (2004-04-07 22:35) [5]

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

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

...

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

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.033 c