标准的答案!var
mainhwd:HWND;
nexthwd:HWND;
i:Integer;
begin
shellexecute(0,'open','第二个程序.exe',nil,nil,1);
fori:=100to5000do
begin
mainhwd:=findwindow(nil,'第二个程序的标题);
ifmainhwd0then
begin
nexthwd:=findwindowex(mainhwd,0,nil,Tedit);//这里就是找你的那个程序中edit的内容
ifnexthwd0then
begin
//找到了你想怎么样在这里写
end;
end;
sleep(i);
end;
end;
能取到它的句柄吗
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024