delphi7,如何读取另一个关联程序的Edit中的数值？

2025-01-07 08:19:55

推荐回答（3个）

回答1：

var
mainhwd:HWND;
nexthwd:HWND;
i: Integer;
begin
shellexecute(0,'open','第二个程序.exe',nil,nil,1);
for i := 100 to 5000 do
begin
mainhwd:=findwindow(nil,'第二个程序的标题);
if mainhwd<>0 then
begin
nexthwd:=findwindowex(mainhwd,0,nil,Tedit);//这里就是找你的那个程序中edit的内容
if nexthwd<>0 then
begin
//找到了你想怎么样在这里写
end;
end;
sleep(i);
end;
end;

回答2：

需要用消息机制，先用findwindow找出你的窗口句柄，再通过消息取控件值，这个消息我忘了

回答3：

通过句柄