[Энтомолог 0]

Я не профессиональный программист, но, как любой образованный человек, немного знаю С++ и пишу на нем время от времени))) Поэтому, просьба не ругать меня, даже если вопрос слишком простой... Напишу подробно, чтобы легче было получить исчерпывающий ответ.

 

Моя задача:

 

Воспроизводить видео в своем приложении.

 

 

Что я cделал:

 

В Builder С++ 6 и мпортировал компонент ActiveX TWindowsMediaPlayer и поместил его на форму. Установил Align = alСlient.

 

 

Проблема:

 

Windows Media Player запускается в составе моего приложения, но не изменяет размеры при изменении размеров формы (resize).

 

 

В интернете нашел вот такое решение:

 

Zelius © (2004-07-16 15:43) [1]

 

procedure TForm1.FormResize(Sender: TObject);

var

Res: Integer;

begin

with WindowsMediaPlayer1 do

begin

Res := (IDispatch(OleObject) as IOleInPlaceObject).SetObjectRects( BoundsRect, Rect(0, 0, 32767, 32767));

end;

end;

 

 

Прошу помочь мне воплотить это в Builder С++. Прошу не отсылать меня к объяснению конструкции "with do", уже прочитал про нее, но видимо, я что-то не так понимаю...