Курсовая работа: Розробка програми для сумісної роботи з додатками PowerPoint з використанням технології OLE

PowerPointApp. ActivePresentation. SlideShowSettings. Run;

// Показать текущую версию презентации

ShowMessage (Format('Powerpoint version:%s', [PowerPointApp. Version]));

ALL:=StrToInt (Format(' % s', [PowerPointApp. ActivePresentation. Slides. Count]));

Label_NUM. Caption:=InttoStr(K);

end;

procedure TForm1. Button_CLOSEClick (Sender: TObject);

begin

// Закрытьпрезентациюивыгрузитьизпамяти

PowerPointApp. Quit;

PowerPointApp:= UnAssigned;

// Заблокированиекнопокприуспешномзакрытии

Button_CLOSE. Enabled:=False;

Button_RUN. Enabled:=True;

Button_FIRST. Enabled:=False;

Button_PREV. Enabled:=False;

Button_NEXT. Enabled:=False;

Button_LAST. Enabled:=False;

Button_NUMBER. Enabled:=False;

Edit_NUM. Enabled:=false;

Label_NUM. Visible:=false;

end;

procedure TForm1. Button_EXITClick (Sender: TObject);

begin

Form1. Close;

end;

procedure TForm1. Button_NEXTClick (Sender: TObject);

begin

// Перейти к следующему слайду