![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() На форме располагаю несколько кнопок. Одну из них называю просмотр презентации. Файл презентации test.pps будет находиться в тойже папке что и программа (на cd-диске), пожалуйста подскажите что сделать чтоб при нажатии на эту кнопку начинался просмотр презентации. Использую Delphi 2005. Заранее спасибо.
|
#2
|
|||
|
|||
![]() не знаю как в 2005 но в 7 можно сделать так
1 способ так как ассоциативно этот файл относится к PowerPoint, то открытие этого файла автоматом запустит и PowerPoint, winexec('cd:\\myprezenation.pps', sw_show), но не уверен. 2 способ - создание OLE uses ComObj; procedure ShowPrezenattion (APthtoFilePPS : shortstring); var PowerPointAppl : olevariant; begin PowerPontAppl := createoleobject('powerpoint.application') //прочитай как класс называется точно, я не уверен, справка нужна по вижуал бэйсику в разделе Application try powerpointappl.document.open(APthtoFilePPS); powerpointappl.show; except powerpointappl.quit; end; end; юзай справку по вижуал бэйсику в самом павер поинте, и используй эти команды для загрузке документа и т.д. |
#3
|
||||
|
||||
![]() Достаточно запустить при помощи executeshell или winexec на мой взгляд. Расширение PPS имеют презентации, которые сразу после запуска автоматически активируются, насколько мне известно.
Delphi & LMD & RXLib / VBA / Windows / Linux |
#4
|
|||
|
|||
![]() Всем спасибо, вчера вечер помучался и всё получилось, сначала запускалась только с указанием полного пути, потом всетаки сделал чтоб небыло зависимости от пути.
|