не знаю как в 2005 но в 7 можно сделать так
1 способ
так как ассоциативно этот файл относится к PowerPoint, то открытие этого файла автоматом запустит и PowerPoint,
winexec('cd:\\myprezenation.pps', sw_show), но не уверен.
2 способ - создание OLE
uses ComObj;
procedure ShowPrezenattion (APthtoFilePPS : shortstring);
var
PowerPointAppl : olevariant;
begin
PowerPontAppl := createoleobject('powerpoint.application') //прочитай как класс называется точно, я не уверен, справка нужна по вижуал бэйсику в разделе Application
try
powerpointappl.document.open(APthtoFilePPS);
powerpointappl.show;
except
powerpointappl.quit;
end;
end;
юзай справку по вижуал бэйсику в самом павер поинте, и используй эти команды для загрузке документа и т.д.
|