Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
Внизпосмотр презентаций 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c