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

OpenDialog1. Execute;

St1:=OpenDialog1. FileName;

if St1<>'' then

begin

Edit_Path.text:=St1;

Button_RUN. Enabled:=true;

end

else

with Application do

begin

NormalizeTopMosts;

MessageBox ('Ошибка! Файлневыбранилиимеетнеправильныйформат!', 'Ошибкаввода', MB_ICONERROR);

RestoreTopMosts;

end;

end;

procedure TForm1. Button_NUMBERClick (Sender: TObject);

begin

// Перейти к сладу с номером, указанным пользователем

if (Edit_NUM. Text<>'') then

begin

Num:=StrtoInt (Edit_NUM. Text);

if ((Num>=1) and (Num<=ALL)) then

begin

PowerPointApp. ActivePresentation. SlideShowWindow. View. GoToSlide(Num);

K:=Num;

Label_NUM. Caption:=InttoStr(K);

Form_refresh1;

end

else