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

var

Form1: TForm1;

PowerPointApp: OLEVariant; // объект самой презентации

St1: string; // строка пути к файлу

Num, // Номер слайда, выбранного пользователем

K, // Номер текущего слайда

ALL: integer; // Общее количество слайдов

procedure Form_refresh1;

implementation

{$R *.dfm}

procedure Form_refresh1;

begin

// Если слайд первый

If (K=1) then

begin

Form1. Button_FIRST. Enabled:=false;

Form1. Button_PREV. Enabled:=false;

Form1. Button_NEXT. Enabled:=true;

Form1. Button_LAST. Enabled:=true;

end;

// Если слайд не первый и не последний (все остальные)

If ((K>1) and (K<=ALL-1)) then

begin

Form1. Button_FIRST. Enabled:=true;

Form1. Button_PREV. Enabled:=true;

Form1. Button_NEXT. Enabled:=true;

Form1. Button_LAST. Enabled:=true;

end;

// Если слайд последний