Уведомления
Очистить все
Delphi
1
Записи
1
Пользователи
0
Reactions
613
Просмотры
Создатель темы 13/03/2020 3:24 пп
Если в системе 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;