关于用Delphi控制播放PowerPoint

Question

我看了以前的贴
procedure TForm1.Button1Click(Sender: TObject);
var SWindow:SlideShowWindow;
begin
  PowerPointApplication1.Connect;
  PowerPointApplication1.Visible := 1;
  PowerPointApplication1.Presentations.Open('d:\22.ppt',msofalse,msotrue,msotrue);
  with PowerPointApplication1.Presentations.Item(1) do
  begin
    SlideShowSettings.AdvanceMode := ppSlideShowUseSlideTimings;
    SlideShowSettings.LoopUntilStopped := msoTrue;
    SWindow := SlideShowSettings.Run;
    Form1.SetFocus;
  end;
end;
这个msofalse,ppSlideShowUseSlideTimings出错，请问我要运行这个程序，除一个Button和PowerPointApplication还要写什么吗
我想做一个控制powerpoint循环播放3个ppt文件的程序

Answer 1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=649295

Answer 2

使用msotrue和msofalse怎么老出错呀，他们是在哪定义的

Answer 3

msotrue/msofalse在powerpointXP中定义,use it.