var myhandle: Thandle; begin winExec(文件路径,SW_SHOW); myHandle:=FindWindow(打开程序的窗体类名,打开程序的窗体名[CAPTION]); if myhandle<>0 then Windows.SetParent(myhandle,Panel1.Handle); end;其中FindWindow的第一个参数要用到枚举窗体的API回调函数,请参考MSDN。
minizhuxianchun 对不起 这种方法不是合乎规则的方法 再等!!!!
不过也可以这样: myHandle:=FindWindow(nil,打开程序的窗体名[CAPTION]); if myhandle<>0 then Windows.SetParent(myhandle,Panel1.Handle);
myhandle: Thandle;
begin
winExec(文件路径,SW_SHOW);
myHandle:=FindWindow(打开程序的窗体类名,打开程序的窗体名[CAPTION]);
if myhandle<>0 then
Windows.SetParent(myhandle,Panel1.Handle);
end;其中FindWindow的第一个参数要用到枚举窗体的API回调函数,请参考MSDN。
这种方法不是合乎规则的方法
再等!!!!
myHandle:=FindWindow(nil,打开程序的窗体名[CAPTION]);
if myhandle<>0 then
Windows.SetParent(myhandle,Panel1.Handle);