как поймать message? [Delphi, Windows]
fr! © (2004-05-08 10:05:00)
Мне необходимо поймать message отосланное другим приложением.
Если в обычном delphi-проекте это выглядит так:
-----------------------------------
// отправка сообщения
const
HA_CMD = wm_app+2504;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
H: HWND;
begin
H:=FindWindow('TForm1','Form1');SendMessage(H,HA_CMD,100,2);
end;
end.
--------------------------------
//приём сообщения
const
HA_CMD = wm_app+2504;
type
TForm1 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
procedure WM_Mes(Var M:TMessage); message
HA_CMD;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WM_Mes(Var M:TMessage);
begin
ShowMessage(IntToStr(m.WParam));
end;
end.
--------------------------------------
то KOL проект начинает "ругаться " на инструкцию
'public', стоящую после обьявления процедуры.
Помогите пожалуйста с этим разобраться.
Как в KOL -проекте осуществить приём сообщений из других
приложений?
SPeller (2004-05-08 12:09:00) [1]
Это есть в FAQ
Наверх 
ЧАТ |
Орешник |
|
