![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Привент всем помогите ошибочку исправить плиз вот написал для открытия презинтации и перелистывания ее, но вот загвоздка одна ошибочка я ее не пойму никак))
Код:
procedure TPrez.sButton1Click(Sender: TObject); var PowerPointApp: OLEVariant; begin PowerPointApp := CreateOleObject('PowerPoint.Application'); PowerPointApp.Visible := True; PowerPointApp.Presentations.Open(((ExtractFilePath(ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True); PowerPointApp.ActivePresentation.SlideShowSettings.Run; PowerPointApp.ActivePresentation.SlideShowWindow.View.Next; end; end. Последний раз редактировалось rapashocker, 14.05.2014 в 12:40. |
#2
|
||||
|
||||
![]() Цитата:
|
#3
|
|||
|
|||
![]() Он показывает мне каретку между '\Теория\антивирусные программы.pptx',и дальнейшим кодом в строке
|
#4
|
||||
|
||||
![]() Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
rapashocker (14.05.2014)
|
#5
|
|||
|
|||
![]() Т.е вместо запятой ставить 2 скобки и потом запятую
|
#6
|
|||
|
|||
![]() все работает так и сделал)))
|
#7
|
||||
|
||||
![]() Цитата:
|