关于进程间通信的问题

Question

有哪为高手的请帮忙做一个进程间通信的例子，要求有两个程序一个发送内容一个接收内容，两个FORM只要求有EDIT和BUTTON控件

Answer 1

看看这个例子
var h:HWND;ss:String;ds:TCopyDataStruct;
begin
  h :=FindWindow(nil,'MyApp');
  ss :=StrPas(CopyData);
  ds.cbData := Length(ss)+1;
  GetMem(ds.lpData,ds.cbData);
  StrCopy(ds.lpData,PChar(ss));
  SendMessage(h,WM_COPYDATA,h,Cardinal(@ds));
  FreeMem(ds.lpData);
end接收procedure WMCOPYDATA(var t:TWmCopyData);message WM_COPYDATA;procedure TfrmMain.WMCOPYDATA(var t: TWmCopyData);
begin
  s :=StrPas(t.CopyDataStruct^.lpData)
end;