又是我来答你的问题啦
procedure TForm1.Button1Click(Sender: TObject);
var
h32770 : THandle;// spy4win 生成的语句
hEdit1: THandle;
buf:array [1..100] of Char;
begin
h32770 := FindWindow('#32770', 'VC6MFC测试程序'); //// spy4win 生成的语句
hEdit1 := GetDlgItem(h32770, $000003E8);
//SendMessage(hEdit1, WM_SETTEXT, 0, Integer(PChar('设置的文字')));
SendMessage(hEdit1, WM_GETTEXT, 100, Integer(@buf));
ShowMessage(buf);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024