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

begin

Form1. Button_FIRST. Enabled:=true;

Form1. Button_PREV. Enabled:=true;

Form1. Button_NEXT. Enabled:=false;

Form1. Button_LAST. Enabled:=false;

end;

end;

procedure TForm1. Button_RUNClick (Sender: TObject);

begin

try

PowerPointApp:= CreateOleObject ('PowerPoint. Application');

Button_CLOSE. Enabled:=True;

Button_RUN. Enabled:=False;

Button_FIRST. Enabled:=false;

Button_PREV. Enabled:=false;

Button_NEXT. Enabled:=True;

Button_LAST. Enabled:=True;

Button_NUMBER. Enabled:=True;

Edit_NUM. Enabled:=true;

Label_NUM. Visible:=true;

K:=1; // Номер текущего слайда

except

ShowMessage ('Ошибка! Проверьте наличие PowerPoint.');

Exit;

end;

// Сделать PowerPoint видимым

PowerPointApp. Visible:= True;

// Открыть презентацию

PowerPointApp. Presentations. Open (St1, False, False, True);