Проигрывать MPEG файл в Delphi-программе

Проигрывать MPEG файл в Delphi-программе

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

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

Грузоперевозки круглосуточно - перевозка мебели. . система слежения за автомобилем . устанавливаем кондиционеры мытищи посмотрите наши спецпредложения . стекловолокно .