Question

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

我建了两个EXE程序，如何从一个程序读入另一个程序中的Edit中的数值？我已经用WinExec(PChar(ExtractFilePath(ParamStr(0))+'123.exe'),SW_NORMAL)关联两个程序;不用数据库。谢谢！

Answer 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;

Answer 2

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

Answer 3

通过句柄