急啊！请问，怎么从一个程序向另一个程序发送一个整数？(50分)

其实很简单，我就想从一个程序project1.exe向project2.exe发送一个整数，比如4。
project2.exe接收到这个4后，就做自己的处理 了，并不返回给project1.exe任何信息。
用最简单的方法
可以用postmessage吗？
急啊

自定义一个消息
const
WM_MSG_SELF = WM_USER + 1001;

1.发送消息的程序 project1.exe
先用
var
sHandle: THandle;
begin
sHandle := FindWindow(nil,'程序 project2.exe 的标题名称');
PostMessage(sHandle,WM_MSG_SELF,4,0); //这里的 4 就是你想要传送的整数
end;

2.接收消息的程序 project2.exe
定义一个接收消息的过程
private
procedure WMMSGSELF(var AMsg: TMessage); message WM_MSG_SELF;

procedure TForm2.WMMSGSELF(var AMsg: TMessage);
begin
ShowMessage(IntToStr(AMsg.WParam));
end;

接受答案了.