delphi7,如何读取另一个关联程序的Edit中的数值?
我建了两个EXE程序,如何从一个程序读入另一个程序中的Edit中的数值?我已经用WinExec(PChar(ExtractFilePath(ParamStr(0))+'1...
我建了两个EXE程序,如何从一个程序读入另一个程序中的Edit中的数值?我已经用WinExec(PChar(ExtractFilePath(ParamStr(0))+'123.exe'),SW_NORMAL)关联两个程序;不用数据库。谢谢!
展开
3个回答
展开全部
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;
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;
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-07-07 · 知道合伙人软件行家
关注
展开全部
需要用消息机制,先用findwindow找出你的窗口句柄,再通过消息取控件值,这个消息我忘了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
通过句柄
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询