Цитата:
|
Сообщение от MiTrack
Для это го понадобится компонент Windows Media Player.
Установите этот компонент, делается это так:
Зайдите в меню Project\Import Type Library...
В появищемся окне отыщите компонент Windows Media Player (Version 1.0)
Там их два, нам нужен верхний, тоесть первый.
Выделяем его, жмем кнопку Create Unit. Перед нами появиться окно открытой библиотеки WMPLib_TLB. А в строке Caption путь к pas файлу.
Теперь мы можем его установить.
Зайдите в меню Component\Instal Component...
В появищемся окне идем на вкладку Intro New Package
В поле Unit Name: Указываем путь к ранее подготовлинной библиотеки WMPLib_TLB. Храниться она в Delphi7\Imports\
Package File Name: введите WMP.
И жмите кнопку Ok. У нас все готово.
Закройте не нужные окна.
Компонент найдете во вкладке System.
-------------------------------------------
Для загрузки видео используйте код:
WindowsMediaPlayer1.Url := FileName;
|
MiTrack, а как WindowsMediaPlayer плейлист подгрузить, и проигрівать его по кругу в полноєкранном режиме?