Привент всем помогите ошибочку исправить плиз вот написал для открытия презинтации и перелистывания ее, но вот загвоздка одна ошибочка я ее не пойму никак))
Код:
procedure TPrez.sButton1Click(Sender: TObject);
var
PowerPointApp: OLEVariant;
begin
PowerPointApp := CreateOleObject('PowerPoint.Application');
PowerPointApp.Visible := True;
PowerPointApp.Presentations.Open(((ExtractFilePath(ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);
PowerPointApp.ActivePresentation.SlideShowSettings.Run;
PowerPointApp.ActivePresentation.SlideShowWindow.View.Next;
end;
end.
expected ' ,' found в этйо строке PowerPointApp.Presentations.Open(((ExtractFilePath (ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);