посмотр презентаций PowerPoint, или установка PowerPoint Viewer

← →
iq0 (2002-08-29 14:21) [0]

Сделал презентацию в PowerPoint"е.
Надо записать ее на СД.
Кто знает как сделать в делфи прогу которая:
1. проверяет установлен ли PPViewer
2. если не установлен - установить с того же СД (дистриб есть)
3. запустить просмотр презентации
Основная трудность в 1 пунтке, но буду благодарен и за полный ответ (время горит - надо за 2 дня наштомповать 600сд,)
Заранее благодарю, Евгений.

← →
Юрий Зотов © (2002-08-29 14:37) [1]

А зачем это? Установку PPViewer можно включить в саму презентацию, в PP есть такая птичка. И все произойдет без всяких дополнительных программ.

← →
iq0 (2002-08-29 14:50) [2]

Для этого необходимо Упаковать презентацию, указав, что надо включить ППВ.
Потом при запуске она спросит куды распаковывать презентацию, и если не установлен ППВ, то установит его...

Мне же надо, чтобы юзер только воткнул СД - и опа презентация...

Для этого в файл ауторан.инф на СД надо прописать запускаемый EXEшник, который всю эты лабуду проделает вручную, без вопросов о том куда распоковать...

Как тогда сделать автозапуск презентации с СД?

← →
iq0 (2002-08-29 15:15) [3]

Нарыл вот может кому пригодится:

uses
...,ComObj,ActiveX;

function IsOLEObjectInstalled(Name: String): boolean;
var
ClassID: TCLSID;
Rez : HRESULT;
begin
Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);

if Rez = S_OK then
Result := true
else
Result := false;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if not IsOLEObjectInstalled ("PowerPointViewer.Application") then
ShowMessage("Not found")
else
ShowMessage("Ok");
end;

посмотр презентаций PowerPoint, или установка PowerPoint Viewer Найти похожие ветки