delphi7,如何读取另一个关联程序的Edit中的数值？
2个回答
展开全部
标准的答案!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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
