Delphi — OleContainer — PowerPoint — автозапуск

Вам не нужен OleContainer для запуска презентации внутри контейнера в вашем приложении. Поместите панель контейнер, чтобы запустить презентацию в вашей форме, и попробуйте следующую процедуру:

procedure TForm2.Button3Click(Sender: TObject);
const
  ppShowTypeSpeaker = 1;
  ppShowTypeInWindow = 1000;
  SHOW_FILE = 'C:\Users\jcastillo\Documents\test.pps';
var
  oPPTApp: OleVariant;
  oPPTPres: OleVariant;

  screenClasshWnd: HWND;
  pWidth, pHeight: Integer;

  function PixelsToPoints(Val: Integer; Vert: Boolean): Integer;
  begin
    if Vert then
      Result := Trunc(Val * 0.75)
    else
      Result := Trunc(Val * 0.75);
  end;

begin
  oPPTApp := CreateOleObject('PowerPoint.Application');
  oPPTPres := oPPTApp.Presentations.Open(SHOW_FILE, True, True, False);
  pWidth := PixelsToPoints(Panel1.Width, False);
  pHeight := PixelsToPoints(Panel1.Height, True);
  oPPTPres.SlideShowSettings.ShowType := ppShowTypeSpeaker;
  oPPTPres.SlideShowSettings.Run.Width := pWidth;
  oPPTPres.SlideShowSettings.Run.Height := pHeight;
  screenClasshWnd := FindWindow('screenClass', nil);
  Windows.SetParent(screenClasshWnd, Panel1.Handle);
end;

У меня нет документации под рукой, но я думаю, что Run.Width и Run.Height должны быть указаны в точках, а не в пикселях. Мое бедное решение для преобразования пикселей в точки здесь, и оно работает для меня в моих тестах здесь ... найти правильный способ преобразования в вашей среде зависит от вас.

Предполагается, что вы можете получить дескриптор окна презентации из свойства oPPTPres.SlideShowSettings.Run.HWND, но для меня это не работает, отсюда и вызов FindWindow.

Run — это метод TOleContainer, а не метод, специфичный для какого-либо объекта OLE, например, для презентации Power Point или растрового изображения. Документация гласит "Вызовите Run, чтобы убедиться, что серверное приложение запущено...".

Для работы с ними необходимо вызывать методы, специфичные для объекта, см. Справочник по объектной модели PowerPoint. Образец кода:

procedure TForm1.Button1Click(Sender: TObject);
const
  ppAdvanceOnTime = $00000002;
var
  P: OleVariant;
  S: OleVariant;
  i: Integer;
begin
  P :=  OleContainer1.OleObject.Application.Presentations.Item(1);

  // below block would not be necessary for a slide show (i.e. a *.pps)
  for i := 1 to P.Slides.Count do begin
    P.Slides.Item(i).SlideShowTransition.AdvanceOnTime := True;
    P.Slides.Item(i).SlideShowTransition.AdvanceTime := 1;
  end;
  S := P.SlideShowSettings;
  S.AdvanceMode := ppAdvanceOnTime;

  S.Run;
end;

Хотя в приведенном выше примере презентация будет показана в виде слайд-шоу, это, вероятно, не то, что вам нужно, потому что оно работает в полноэкранном режиме. Я понятия не имею, как запустить его в окне контейнера.