Delphi如何通过已知句柄得到外部程序Edit的值? 急！

2025-02-27 01:49:00

推荐回答（1个）

回答1：

又是我来答你的问题啦
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;