VPF::Поймать сообщение из другой программы

SlaUr

Дата 29.3.2004, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Мне нужно следующее (может я не праивильно буду выражаться)

В первой программе поставить ловушку на определенное сообщение
Во второй программе посылать сообщение первой программе.
Это нужно для того , чтобы после определенных действий во второй программе обновлялись данные в первой (т.к. обе программы взаимосвязанны.)

Мне нужен именно простой пример.

Alex

Дата 29.3.2004, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Значит так в той программе которая должна принемать сообщение пишешь

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const // Сообщения
  wmu_MyMessage   = wm_User + 625;

type
  TfrmTest1 = class(TForm)
  private
    { Private declarations }
    procedure MyMessage(var Msg: tMessage); message wmu_MyMessage;
  public
    { Public declarations }
  end;

var
  frmTest1: TfrmTest1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TfrmTest1.MyMessage(var Msg: tMessage);
begin
  ShowMessage('');
end;

end.

Здесь объявлено свое сообщени. 625 можно заменить на любое число главное чтобы полученное сообщение было уникальным
Для посылки сообщения во второй программе напиши следуюшее

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(FindWindow('TfrmTest1', nil), WM_USER+625, 0, 0);
end;

Здесь происходит собственно отправка сообщения окну первой программы

Если чтото непонятно пиши.
Могу выслать работающий пример.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

SlaUr

Дата 30.3.2004, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

alex-co СПАСИБО! (код работает)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »