求助： delphi 调用外部EXE文件 并在Panle中运行 ( 积分: 50 )

delphi 调用外部EXE文件 并在Panle中运行<br>谢谢回复，，，，，，<br><br>能给个实例吗？？？？？<br><br> Nosunday@163com

delphi 调用外部EXE文件 并在Panle中运行<br>谢谢回复，，，，，，<br><br>能给个实例吗？？？？？<br><br> Nosunday@163com

调用外部EXE？并在PANEL中运行？<br>这个好像不太现实吧！你的意思是不是需要在Panel中嵌入一个ActiveX控件

不是，，，我的意思是，，让EXE文件窗体位置显示在Panel中

你需要用olecontainer嵌入进去，在它中打开外部程序。

在www.playicq.com上有这个源码，名字忘了，找一下

你老兄运气好，我就没有你这么好运了,邮件里有demo<br>unit Unit1;<br><br>interface<br><br>uses<br> &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs, StdCtrls, ExtCtrls;<br><br>type<br> &nbsp;TForm1 = class(TForm)<br> &nbsp; &nbsp;pnl1: TPanel;<br> &nbsp; &nbsp;Button1: TButton;<br> &nbsp; &nbsp;procedure Button1Click(Sender: TObject);<br> &nbsp;private<br> &nbsp; &nbsp;{ Private declarations }<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br><br>var<br> &nbsp;Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> h:HWND;<br>begin<br> &nbsp;WinExec('calc.exe',SW_NORMAL);<br> &nbsp;h:= FindWindow(nil,'计算器');<br> &nbsp;//取windows的handle方法多了，这种方法可以把excel/word放入到Ｄelphi窗体里<br> &nbsp;windows.SetParent(h,pnl1.Handle);<br> &nbsp;SetWindowPos(h, 0, 0, 0, pnl1.Width , pnl1.Height, SWP_NOZORDER);<br>end;<br><br>end.

接受答案了.