1,978
社区成员
发帖
与我相关
我的任务
分享
procedure TPartForm.Button1Click(Sender: TObject);
var
h : HWND;
s : string;
h1,h2 : HWND;
begin
s := trim(Pedit1.Text);
h := FindWindow('TForm1','Form1');
if h<>0 then
begin
h2 := FindWindowEx(h,0,'Tedit','CEdit1');//这个是我另一个程序(receive.exe)里面(只有一个edit组件,将接受Pedit1的内容)
SendDlgItemMessage(h,h2,WM_SETTEXT,0,Integer(Pointer(Pchar(s))));
end
else
begin
showmessage('w!!!');
end;