Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

iq0 (2002-08-29 15:15:00) [1]
Нарыл вот может кому пригодится:

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;

iq0 (2002-08-29 14:50:00) [2]
Для этого необходимо Упаковать презентацию, указав, что надо включить ППВ.
Потом при запуске она спросит куды распаковывать презентацию, и если не установлен ППВ, то установит его...

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

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

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

Юрий Зотов (2002-08-29 14:37:00) [3]
А зачем это? Установку PPViewer можно включить в саму презентацию, в PP есть такая птичка. И все произойдет без всяких дополнительных программ.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »