dear all ada tidak cara untuk buat form untuk menampilkan slide show file ppt mohon bantuannya

Banyak yang dibahas kok di om google... coba pake code seperti ini ....

Begin try PowerPointApp := CreateOleObject('PowerPoint.Application') except Exit; end; PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false); ppl := PowerPointApp.Presentations.Item(1).Slides.Count; // Check number of pages in this one there are 3 pages PowerPointApp.Presentations.Item(1).SlideShowSettings.Run; //Then I set a timer to check if its the last page timer1.enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var pl, fld : string; begin pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name; if pl = 'Slide' + inttostr(ppl) then begin timer1.enabled := false; timer2.interval := 5000; timer2.enabled := true; end; end; procedure TForm1.ppTimer2Timer(Sender: TObject); begin try PowerPointApp.Quit; except end; timer3.enabled := true; // loop back and check what to display next end;

@aandrie77: Banyak yang dibahas kok di om google... coba pake code seperti ini ....

Begin try PowerPointApp := CreateOleObject('PowerPoint.Application') except Exit; end; PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false); ppl := PowerPointApp.Presentations.Item(1).Slides.Count; // Check number of pages in this one there are 3 pages PowerPointApp.Presentations.Item(1).SlideShowSettings.Run; //Then I set a timer to check if its the last page timer1.enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var pl, fld : string; begin pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name; if pl = 'Slide' + inttostr(ppl) then begin timer1.enabled := false; timer2.interval := 5000; timer2.enabled := true; end; end; procedure TForm1.ppTimer2Timer(Sender: TObject); begin try PowerPointApp.Quit; except end; timer3.enabled := true; // loop back and check what to display next end;

thanks ya om....

@aandrie77: Banyak yang dibahas kok di om google... coba pake code seperti ini ....

Begin try PowerPointApp := CreateOleObject('PowerPoint.Application') except Exit; end; PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false); ppl := PowerPointApp.Presentations.Item(1).Slides.Count; // Check number of pages in this one there are 3 pages PowerPointApp.Presentations.Item(1).SlideShowSettings.Run; //Then I set a timer to check if its the last page timer1.enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var pl, fld : string; begin pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name; if pl = 'Slide' + inttostr(ppl) then begin timer1.enabled := false; timer2.interval := 5000; timer2.enabled := true; end; end; procedure TForm1.ppTimer2Timer(Sender: TObject); begin try PowerPointApp.Quit; except end; timer3.enabled := true; // loop back and check what to display next end;

apakah code diatas menggunakan olecontainer? untuk code di atas, perlu komponen apa saja? apa bisa menampilkan ke secondary monitor? mohon bantuannya.. maaf kalo ternyata sudah ada thread untuk topik yg saya tanyakan, tlg bagi linknya saya cari lewat fasilitas search di forum, dengan keyword "slideshow powerpoint in delphi secondary monitor", dapat hasilnya 4366 items.. terima kasih