如何在delphi的olecontainer中浏览ppt呀？ ( 积分: 200 )

如题，给200分。

如题，给200分。

cuipy,如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.CreateObjectFromFile('c:/test.ppt',false);
OleContainer1.DoVerb(ovPrimary);
OleContainer1.OleObject.SlideShowSettings.Run;
end;
浏览效果是全屏幕的，要是你想在自己的Form里面浏览，做不到。