Delphi盒子-问答悬赏

lzl_17948876：  放一个Servers里的TPowerPointApplication对象
webbrowser打开后, 在TPowerPointApplication对象的OnSlideShowNextClick写代码

var
  MySlideShowWindow: SlideShowWindow;
  MyView:SlideShowview;
begin
  MySlideShowWindow:= ppta.Presentations.Item(1).SlideShowSettings.Run;
  MySlideShowWindow._AddRef;
  MyView := MySlideShowWindow.View;
  MyView._AddRef;
  caption := inttostr(MyView.CurrentShowPosition); //这里将页码显示到窗体Caption
  MySlideShowWindow._Release;
  MyView._Release;
end;