[rapashocker]

Здраствуйте мастера! Прошу помочь с кодом чтоб из Shelllistvew он считывал презинтацию в OLE container что надо дописать, чтоб он считывал презинтацию с Shelllistview

Код:

Код Delphi
	uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 OleContainer1.CreateObjectFromFile('имя презентации.ppt', false);
 OleContainer1.Run;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 PowerPointApp: OLEVariant;
begin
 PowerPointApp:= GetActiveOleObject('PowerPoint.Application');
 PowerPointApp.ActivePresentation.SlideShowWindow.View.Next;
end;

Админ: Пользуемся тегами для оформления кода!