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