Código Delphi [-] var PowerPoint: Variant; begin try PowerPoint := GetActiveOleObject('PowerPoint.Application'); except PowerPoint := CreateOleObject('PowerPoint.Application'); end; PowerPoint.Visible := True;
var PowerPoint: Variant; begin try PowerPoint := GetActiveOleObject('PowerPoint.Application'); except PowerPoint := CreateOleObject('PowerPoint.Application'); end; PowerPoint.Visible := True;