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