求Delphi PPt播放源代码

Question

本人最近在研究做屏幕分割的软件，就像那种监控显示多个画面的，自己的想法是把各个需要显示的内容写成一个插件或者执行文件，像ppt，word等，现在想请教大家，ppt如何在delphi中显示，并且可以控制其播放。求高手提供源代码研究，或者提供屏幕分割软件的源代码！不胜感谢！

Answer 1

嵌一个OLEContainer，调用PowerPoint的API

Answer 2

delphi ide的组件面板里的server组里有你需要的东东。

Answer 3

需要把ppt扩展名换为ppsppta.Visible :=msotrue;//PowerPointApplication1
pptp.ConnectTo(ppta.Presentations.Open('123.pps',msoFalse,msoFalse,msoTrue));//PowerPointPresentation1