OLE的问题

Question

1、本人初学DELPHI，正在使用其OLECONTAINER控件，在自己的程序中内置OFFICE界面，但是遇到一个问题，那就是POWERPOINT文件不能直接进行显示，这是为何？哪位有这方面的例程，能给我发一个吗？[email protected]
2、如果要对OFFICE进行深入的控制，是否是用COM技术最好，哪位有这方面的例程和技术资料吗？能给我发一个吗？[email protected]
非常感谢！！
祝各位：工作愉快！心情愉快！身体健康！

Answer 1

在delphi6下用Server中的   TPowerPointApplication和TPowerPointPresentation,可以
对PowerPoint进行操作.当然你也可以用CreateOleObject('PowerPoint.application')对
PowerPoint进行操作.下面是一段试验代码,其中
   pptA: TPowerPointApplication;
   pptP: TPowerPointPresentation;
另外两个对象是
  ssSet: SlideShowSettings; 用于设置幻灯片的放映属性
  ssWin: SlideShowWindow;  用于播放幻灯片的控制
ssWin有一个成员对象View可以控制幻灯片放映First,Next,Previous,Last,以及停止
放映Exit,这样的话就可以控制循环播放次数了.
========================================================
var
  ssSet: SlideShowSettings;
  ssWin: SlideShowWindow;procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  pptA := TPowerPointApplication.Create(self);
  pptA.Visible := msoTrue;
  PPtP.ConnectTo(pptA.Presentations.Open('e:\sample\test.ppt', msoFalse, msoFalse, msoTrue));
  ssSet := PPtP.SlideShowSettings;
  ssSet.LoopUntilStopped := msoFalse;
  ssSet.ShowType := ppShowTypeSpeaker;
  ssSet.Run;
  ssWin := PPtP.SlideShowWindow;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ssWin.View.Next;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  ssWin.View.Exit;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    pptA.Disconnect;
    pptA.Quit;
    if assigned(pptA) then pptA.Free;
  except
    showmessage('PowerPoint has already closed!');
  end;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  try
    pptA.Disconnect;
    pptA.Quit;
    if assigned(pptA) then pptA.Free;
  except
    showmessage('PowerPoint has already closed!');
  end;
end;看看

Answer 2

非常感谢您！
另外，请问一下，市面上是否有详细介绍DELPHI所有控件的属性方法事件的书籍？

Answer 3

程序运行时不识别MSOTRUE和MSOFALSE，这是什么？？？？