[delphi-en] Re: Controlling Powerpoint from Delphi app

[kc0fcp]

Rob,

Thanks for the reply. My program is not started by PPT, nor does it
start PPT. The application is in a lobby kiosk. A PPT slide show runs
in an infinite loop. Twice a day, my app is supposed to appear on top
of the running PPT slide show and announce an event and show a
countdown timer. When the countdown reaches 0, my app closes and
disappears. My app is launched as a Scheduled Task.

AFIK, Powerpoint knows nothing about my program. I don't know why the
presentation pauses - it seems to be a built-in characteristic of PPT.
 I reviewed all the show setup options in PPT and didn't see anything
about pausing for other windows, though.

Thanks,

Tim.


--- In delphi-en@yahoogroups.com, Rob Kennedy <[EMAIL PROTECTED]> wrote:

> What's the relationship between PowerPoint and your program. Why does 
> the presentation pause? Does PowerPoint even _know_ about your program? 
> What does your program do?
> 
> I'm guessing that either your program started PowerPoint, or PowerPoint 
> started your program. Which is it?
> 
> Is this a presentation that's supposed to advance automatically?
> 
> -- 
> Rob
>

Re: [delphi-en] Controlling Powerpoint from Delphi app

[Rob Kennedy]

kc0fcp wrote:
> I'm working on a Delphi 7 app that displays a small window in the
> foreground of a running Powerpoint presentation. My app works fine,
> except the Powerpoint show pauses for as long as my app is running,
> and I need to have the show continue to cycle through the slides. I
> had one suggestion to use SetWindowPos(Handle, HWND_TOPMOST...), but
> that didn't help. 

What's the relationship between PowerPoint and your program. Why does 
the presentation pause? Does PowerPoint even _know_ about your program? 
What does your program do?

I'm guessing that either your program started PowerPoint, or PowerPoint 
started your program. Which is it?

Is this a presentation that's supposed to advance automatically?

-- 
Rob

[delphi-en] Controlling Powerpoint from Delphi app

[kc0fcp]

I'm working on a Delphi 7 app that displays a small window in the
foreground of a running Powerpoint presentation. My app works fine,
except the Powerpoint show pauses for as long as my app is running,
and I need to have the show continue to cycle through the slides. I
had one suggestion to use SetWindowPos(Handle, HWND_TOPMOST...), but
that didn't help. 

I'm now looking for a way to send a message to restart the
presentation when my app runs. I see the TPowerPointPresentation
component under Servers, but I can't find any help or examples on how
to use it. 

On this page  I found some VB code
that appears to control the slide show running state:
 If .View.State = ppSlideShowPaused Then
.Presentation.SlideMaster.Shapes("PauseButton").TextFrame _
.TextRange.Text = "Pause"
.View.State = ppSlideShowRunning
Else
.Presentation.SlideMaster.Shapes("PauseButton").TextFrame _
.TextRange.Text = "Resume"
.View.State = ppSlideShowPaused


Is it possible to get the same functionality as 
.View.State = ppSlideShowRunning
using the Delphi TPowerPointPresentation component?

Thanks!