在DELPHI里如何实现一个内嵌程序，即把其他应用程序放在TFORM里执行，并不是弹出一个新窗口。

[Guizhi]

rt

[ksaiy]

去这里下载现成的吧:

http://www.delphibox.com/article.asp?articleid=768

[lovefox_zoe]

楼上，你给的地址连接不了啊。

[ksaiy]

哦。我把它下载下来放到我的网页上了。去这里下载：

http://www.ksaiy.com/App.rar

[Guizhi]

这个还没解决，再顶

[Guizhi]

我想实现的效果主要像IE在打开WORD、EXCEL等文件时的内嵌效果啊，标题栏应该不显示啊。

[jinjazz]

ksaiy(消失在人海)

我靠,被你的首页皇的头晕眼花....东西不少啊

[jinjazz]

我强烈抗议...

对不起!~您没有权限进入此论坛，请点击 这里 返回.

[surpassable]

up~~~~~~~

[king20151111]

这个应该用进程了，你先写一个主线程，其它子线程在主线程里运行

[chinasvip]

procedure TForm1.Button2Click(Sender: TObject);
var
h: HWND;
begin
h := WIndows.FindWindow(nil, '你所要内嵌的程序的Caption');
Windows.SetParent(h, Self.Panel1.Handle);
Windows.MoveWindow(h, 0, 0, 200, 200, true);

end;

[jiaai]

http://www.csdn.net/develop/List_Article.asp

[postfxj]

procedure TForm1.Button2Click(Sender: TObject);
var
h: HWND;
begin
h := WIndows.FindWindow(nil, '你所要内嵌的程序的Caption');
Windows.SetParent(h, Self.Panel1.Handle);
Windows.MoveWindow(h, 0, 0, 200, 200, true);

end;
---------------------------------------------------
上面的代碼不行吧。

[ehom]

>>我想实现的效果主要像IE在打开WORD、EXCEL等文件时的内嵌效果啊

OLE Automation,淘汰的不实用技术~~~

除了MS自己,用的也不是很广泛

新建工程向导里就有,Demo可以看到的\Demos\ActiveX\OleAuto\AutoServ

不过如果只是要把一个窗口嵌到另一个窗口中,SetParent足以~~~