如何截取别的程序发往我的消息.........(35分)

想在一个程序里截取别的程序发往我的消息,然后进行处理.用以下过程可以截取鼠标点击或其它的消息,但是截取不到别的程序发往本程序的消息,怎么回事呢.
procedure tranmessage(var m:TWMSYSCOMMAND); message WM_SYSCOMMAND;
procedure TForm1.tranmessage(var m: TWMSYSCOMMAND);
begin
//处理
end;

自定义消息类型呀
你的程序收到消息了,只是没响应?

你是获取另一程序的输入数据，还是就是给你发的呀？
如果是获取，通过消息就可以了。
如果就是给你发的相关参数设置对就可以了。
如果是后者，tcp,udp,socket,comm,lpt还是什么呀〉，都有控件的，不太难。

unit sendunit;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
procedure SendData;
{ Public declarations }
end;

var
Form1: TForm1;
MapFilehWnd: THandle;
MapFilePointer: Pointer;
implementation

{$R *.dfm}
procedure TForm1.SendData; //发送消息和数据过程
begin
MapFilehWnd := CreateFileMapping ($FFFFFFFF,nil,page_ReadWrite, 0,10000,'MapFileDemo');
if MapFilehWnd <> 0 then
begin
MapFilePointer := MapViewOfFile (MapFilehWnd ,FILE_MAP_ALL_ACCESS,0, 0, 0);
StrCopy(PChar(MapFilePointer),PChar (Edit1.Text));
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
SendData;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MapFilehWnd:=0;
MapFilePointer:=Nil;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MapFilePointer<>Nil then
begin
UnmapViewOfFile(MapFilePointer);
CloseHandle(MapFilehWnd);
end;
end;

end.

//-----------------------------------------------------------------------
unit Receiveunit;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
MapPointerointer;
begin
if (OpenFileMapping(FILE_MAP_ALL_ACCESS,False,'MapFileDemo')<>0) then
begin
MapPointer:=MapViewOfFile(OpenFileMapping(FILE_MAP_ALL_ACCESS,False,'MapFileDemo'),FILE_MAP_ALL_ACCESS,0,0,0);
Edit1.Text := PChar (MapPointer);//从共享内存读出内容
end;
end;

end.
温故知新 《Delphi 7经典问题解析》源代码/第五章/内存映射文件实现数据传递

这是一个方法

截取用钩子就可以了吧

多人接受答案了。