D
dyhkxywangdong
Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序如下
调用幻灯片
var
ssSet: SlideShowSettings;
ssWin: SlideShowWindow
procedure Tjcrm_fm.btn6Click(Sender: TObject);
var
lujin:string;
begin
lujin:=extractfilepath(application.ExeName)+'ppt/3-2-S0.ppt';
//获取可执行文件名
pwrpntplctn1 := TPowerPointApplication.Create(self);
pwrpntplctn1.Visible :=msoTrue;(什么意思,编译同不过)是否变量?
如何单击一个按钮就实现ppt的全屏播放
// pwrpntprsntn1.ConnectTo(pwrpntplctn1.Presentations.Open('C:/Documents and Settings/Administrator/桌面/01/ppt/test.ppt', msoFalse, msoFalse, msoTrue));
pwrpntprsntn1.ConnectTo(pwrpntplctn1.Presentations.Open(lujin, msoFalse, msoFalse, msoTrue));
ssSet := pwrpntprsntn1.SlideShowSettings;
ssSet.LoopUntilStopped := msoFalse;
ssSet.ShowType := ppShowTypeSpeaker;
ssSet.Run;
ssWin := pwrpntprsntn1.SlideShowWindow;
end;
调用幻灯片
var
ssSet: SlideShowSettings;
ssWin: SlideShowWindow
procedure Tjcrm_fm.btn6Click(Sender: TObject);
var
lujin:string;
begin
lujin:=extractfilepath(application.ExeName)+'ppt/3-2-S0.ppt';
//获取可执行文件名
pwrpntplctn1 := TPowerPointApplication.Create(self);
pwrpntplctn1.Visible :=msoTrue;(什么意思,编译同不过)是否变量?
如何单击一个按钮就实现ppt的全屏播放
// pwrpntprsntn1.ConnectTo(pwrpntplctn1.Presentations.Open('C:/Documents and Settings/Administrator/桌面/01/ppt/test.ppt', msoFalse, msoFalse, msoTrue));
pwrpntprsntn1.ConnectTo(pwrpntplctn1.Presentations.Open(lujin, msoFalse, msoFalse, msoTrue));
ssSet := pwrpntprsntn1.SlideShowSettings;
ssSet.LoopUntilStopped := msoFalse;
ssSet.ShowType := ppShowTypeSpeaker;
ssSet.Run;
ssWin := pwrpntprsntn1.SlideShowWindow;
end;