Мой DELPHI – Программирование

Вопрос
Как проигрываеть MPEG файл в Delphi-программе?
Ответ:

Если в системе Windows MMSystem установлен декодер MPEG - используя компонент
TMediaPlayer

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	MediaPlayer1.Filename := 'C:\DownLoad\rsgrow.mpg';
	MediaPlayer1.Open;
	MediaPlayer1.Display := Panel1;
	MediaPlayer1.DisplayRect := Panel1.ClientRect;
	MediaPlayer1.Play;
end;