БОЛЬШОЙ FAQ ПО DELPHI



Проигрывать 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ