Как открыть программу Power Point внутри формы на Delphi 7?

Question

[pcmaster]

Нужно открыть окно программы Power Point внутри формы, запустить в отдельном окне получается с помощью кода:
WinExec(pchar('Explorer '+ExtractFileDir(Application.ExeName)+'\123.pptx'), sw_SHOW);
Пытался назначить дочерним окном программу Power Point, и вывести на панель на форме, вот так писал, не уверен что правильно:
Windows.SetParent(WinExec(pchar('Explorer '+ExtractFileDir(Application.ExeName)+'\123.pptx'), sw_SHOW),form1.Panel1.Handle);

Answer 1

[zed]

Отсюда:

procedure TForm1.FormClick(Sender: TObject); //при клике на форме
var h:hwnd;     //указатель на окно
begin
//запускаем стандартную "командную строку"
  ShellExecute(form1.Handle,'open','cmd.exe',nil,'c:\\windows\system32\',SW_SHOW);
  sleep(10); //ждём, пока окно не появится
  //находим окно по заголовку
  h:=findwindow(nil, 'c:\\windows\system32\cmd.exe');
  //если нашли, присваиваем ему статус дочернего от нашего окошка
  if h<>0 then windows.SetParent(h,form1.Handle);
end;

Comments

[pcmaster]

попробовал этот код, на форме ничего не отобразилось.

Answer 2

[Александр Краснов]

Пишите на qt.
Delphi не нужен.

Comments

[pcmaster]

проект уже создан на Delphi, переделывать на qt очень долго, хотелось бы найти, как это реализовать на Delphi

[Александр Краснов]

pcmaster: вот тут смотрели?
stackoverflow.com/questions/5679935/delphi-olecont...

[Александр Краснов]

pcmaster: https://answers.yahoo.com/question/index?qid=20111... - и тут хорошо написано.

[pcmaster]

да, эти реализации встречал, на в них презентация отрывается для просмотра, а мне нужно полнофункциональное окно Power Point, но внутри формы на Delphi

Answer 3

[Mercury13]

1. Нужен ActiveX-компонент PowerPoint.
Как-то не доводилось делать, поэтому точный рецепт сказать не могу.
2. WinExec — разве эта функция не deprecated в пользу CreateProcess и ShellExecuteEx?