Привент всем помогите ошибочку исправить плиз вот написал для открытия презинтации и перелистывания ее, но вот загвоздка одна ошибочка я ее не пойму никак))
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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);