怎么想另一个程序发送消息

Question

对，比如另一个程序里面有个edit 我知道这个控件句柄，我就是想发一个全选，在发一个复制，这样我就可以把edit的内容复制下来

Answer 1

SendMessage(hwndEdit,WM_SETFOCUS ,NULL,NULL);//先获取焦点
SendMessage(hwndEdit,EM_SETSEL,0,-1);//Edit全选
SendMessage(hwndEdit,WM_COPY,NULL,NULL);//拷贝内容

Answer 2

想要获取数据不用全选 复制  ，直接获取到就行了 //前提你的EDIT控件是标准edit控件
procedure TForm2.btn1Click(Sender: TObject);
var
 hEdit1:  THandle;
 buf:array [1..100] of Char;
 begin
  hEdit1:=你的控件的句柄;
  SendMessage(hEdit1, WM_GETTEXT, 100, Integer(@buf));
  ShowMessage(buf);
 end;

Answer 3

你手头有这个程序的话。
用spy看下这个控件都接收哪些消息。
你想实现的功能，你自己操作一遍，然后看看这个控件都触发了哪些消息。
有可能是自定义的消息。