PowerPointApplication1.Visible := 1;
PowerPointApplication1.AutoQuit:=true;
PowerPointApplication1.Presentations.Open(Filename,0,1,1);
with PowerPointApplication1.Presentations.Item(1) do
begin
SlideShowSettings.AdvanceMode := ppSlideShowUseSlideTimings;
SlideShowSettings.LoopUntilStopped := 1;
ssWin := SlideShowSettings.Run;
ssWin.View.First;
end;后,在PowerPointApplicationWindowDeactivate事件中执行:
PowerPointApplication1.Disconnect;
PowerPointApplication1.Quit;结果,编辑窗体并没有关掉;
为什么?
难道还要Free不成?
PowerPointApplication1.AutoQuit:=true;
PowerPointApplication1.Presentations.Open(Filename,0,1,1);
with PowerPointApplication1.Presentations.Item(1) do
begin
SlideShowSettings.AdvanceMode := ppSlideShowUseSlideTimings;
SlideShowSettings.LoopUntilStopped := 1;
ssWin := SlideShowSettings.Run;
ssWin.View.First;
end;后,在PowerPointApplicationWindowDeactivate事件中执行:
PowerPointApplication1.Disconnect;
PowerPointApplication1.Quit;结果,编辑窗体并没有关掉;
为什么?
难道还要Free不成?
该事件在PowerPointApplication窗口从活动状态变为不活动时激发,这时候需要关闭它么?————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
PowerPointApplication1.Quit;(Disconnect这句不要)
就可以了。————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————