delphi中如何调用powerpoint文件

Question

我做了一个程序想再里面调用一ppt 文件
不知道各位做过没有
谢谢
急用
立即给分

Answer 1

var
  pptA: TPowerPointApplication;
  pptP: TPowerPointPresentation;
  ssSet: SlideShowSettings;
  ssWin: SlideShowWindow;
procedure TForm1.FormCreate(Sender: TObject);
begin
  pptA := TPowerPointApplication.Create(self);
  pptA.Visible := msoTrue;
  PPtP.ConnectTo(pptA.Presentations.Open('h:\php.pps', 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.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;

Answer 2

在delphi中可以把msoTrue以1替换，msoFalse以0替换