如何把另一个程序（无源码）作为子窗体在程序中运行?

Question

请各位大虾帮帮忙！！

Answer 1

得到它的Handle，然后用SetParentWindow。应该可以。

Answer 2

SetParent的Delphi帮助里说必须两个窗口在同一个application中，不能用的！
我没查到有SetParentWindow函数·
 hotzhu大大，模态运行怎么做呀？？

Answer 3

可以用进程间通信调用另外的程序，并向它发送消息，方法是：
发送端：
var
ds: TCopyDataStruct;
hd: THandle;
begin
    ds.cbData:=Length('要发送的字符串')+1;
    GetMem(ds.lpData,ds.cbData);
    StrCopy(ds.lpData, PChar(要发送的字符串'));
    Hd:=FindWindow(nil,'Form2');
    if Hd<>0 then
    sendMessage(Hd,WM_COPYDATA,Handle,Cardinal(@ds));
    FreeMem(ds.lpData); // 释放资源
end;　接收程序：
procedure TForm2.WmCopyData(var t:TWmCopyData);
var
s:string;
begin
s:=StrPas(t.CopyDataStruct^.lpData);//收到的消息就是它了，可以根据收到的消息做相应工作
end;