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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Разговор программиста с женой. Программер:
- Ты слыхала, что через 10-15 лет станет возможным иметь секс с компьютером?
- А тебе-то что? Для тебя ничего не изменится...

Если в системе 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;