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

Похожие по теме исходники

Чтение PSD файлов

Шифратор файлов

Разбиение файла на части

Поиск файлов

FileMan (менеджер файлов)

Поиск открытых файлов

Delphi to HTML Converter

Проверка знаний Delphi

Is Delphi Dying Monitor

Autosave Delphi 7

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 136 • TDictionary Custom Sort 3 318 • Fast Watermark Sources 3 065 • 3D Designer 4 826 • Sik Screen Capture 3 321 • Patch Maker 3 537 • Айболит (remote control) 3 637 • ListBox Drag & Drop 2 997 • Доска для игры Реверси 81 581 • Графические эффекты 3 927 • Рисование по маске 3 233 • Перетаскивание изображений 2 613 • Canvas Drawing 2 735 • Рисование Луны 2 562 • Поворот изображения 2 167 • Рисование стержней 2 161 • Paint on Shape 1 564 • Генератор кроссвордов 2 227 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 218 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 279 • Игра Go (Го) 1 225 • Симулятор лифта 1 471 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 353 • HEX View 1 490 • Физический маятник 1 355