你知道怎么实现通过A程序给B程序的一个EDIT里面写数据吗？

Question

可以通过网络啊. 两程序通过 tcp/ip 通信.
连接成功后就可以互相交换数据了.

Answer 1

用sendmessage发送消息可以实现

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  FormH,EditH:THandle;
  Txt:String;
begin
  Txt:='abck';
  FormH:=FindWindow(nil,'Form1');//Form1为有Edit的窗口Title
  if FormH<>0 then
    EditH:=FindWindowEx(FormH,0,'TEdit',nil);//找到Form1上的TEdit对
                                             //象的句柄
  SendMessage(EditH,WM_SetText,0,Integer(PChar(Txt)));
end;