Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.023 c
14-1083516596
Maxim Vetera
2004-05-02 20:49
2004.05.23
Заглядывая в будущее!


8-1078606910
Yuri Btr
2004-03-07 00:01
2004.05.23
Проблема с установкой ф-ии через BASS_ChannelSetSync


3-1082531575
Wild
2004-04-21 11:12
2004.05.23
Компонент TDbf


3-1083311033
Alina
2004-04-30 11:43
2004.05.23
TDateTime в DBGrid e


3-1083135955
Dina
2004-04-28 11:05
2004.05.23
существование поля в таблице INTERBASE ?