如何用BCB控制别的程序？

[CCLIS]

有一套算法很复杂的软件，可惜是英文的，并且有些地方不实用，本来想自己重新开发一套，可惜不知道具体的算法，现在想做一个前台程序，中文界面，自动将数据传到那套程序，而再获得那套程序产生的结果，转到前台我自己的程序里。

请问，想做到如此的效果，怎样做？

原来的软件的输入和输出都是在EDIT框里的，如果获得具体的EDIT的具体并控制它们？
还有，如何对那个软件发送命令开始计算，就是如何向另外一个程序发送它自定义的命令及如何知道它的命令参数？

分不够可以再加。

[jishiping]

应该没问题的。但不是一两句说的清楚的。

[forgot2000]

用Delphi做的简单范例，你可以参考一下：
分发送与接收
发送:新建一个工程,并在其窗体中加一个EDIT和一个BUTTON
procedure TForm1.button1click(sender:TObject);
var
ds:TCopydatastruct;
hd:THandle;
begin
ds.cbData:=Length(Edit1.Text)+1;
GetMem(ds.lpData,ds.cbData); //为传递数据分配内存
StrCopy(ds.lpdata,PChar(edit1.Text));
hd:=Findwindow(nil,'Form2'); //获得按受窗口的句柄
if HD<>0 then
SendMessage(Hd,WM_COPYDATA,Handle,Cardinal(@ds); //发送WM_COPYDATA消息
else
Showmessage('No found!');
FreeMem(ds.lpData); //释放资源
end;

接收:再建一个工程,并在其窗体中加一个EDIT
unit unit2;
....
public
{Public declarations}
procedure Mymessage(var t:TWmCopyData);message WM_COPYDATA;
...
procedure TForm2.Mymessage(var t:TWmCopyData);
begin
edit1.text:=Strpas(t.CopyDataStruct^.lpData); //接受并显示
end;

[invalid]

发送消息个Ｅｄｉｔ和给按钮发送按下消息不难。用ＳｅｎｄＭｅｓｓａｇｅ就可以。关键是得到句柄，得到句柄可以参考一下以前的帖子，有两种方法：
1.根据位置得到。
2.枚举窗体上所有组件。
以前的帖子讨论过，细节你搜索一下吧。

程序自定义的命令和参数就不好得到了，考虑使用Crack手段，跟踪一下。

[aawolf]

那个软件支持COM吗？如果是个自动化服务器的话，只要找到它的接口就可以了。不过也不知道你运气有没有那么好。
一般的程序会把算法什么的放到动态连接库中去，你只要找到它的库入口函数就可以使用它的函数了，得到函数参数的方法很多，但关键是能不能找到入口函数。

[CCLIS]

做好了，谢谢大家，结帖