Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)

Нам приходится брать деньги за то, что мы и так с удовольствием делаем... Нам приходится делать это даже когда очень противно... Почти все стараются не заплатить... Все нас матерят... Нас презирают как верхи, так и низы... И зачем я стал программистом...

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do
    if NotifyValue = nvSuccessful then
    begin
      Notify := True;
      Play;
    end;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 195 • TDictionary Custom Sort 6 256 • Fast Watermark Sources 6 053 • 3D Designer 8 953 • Sik Screen Capture 6 380 • Patch Maker 6 801 • Айболит (remote control) 6 782 • ListBox Drag & Drop 5 656 • Доска для игры Реверси 96 319 • Графические эффекты 7 000 • Рисование по маске 6 282 • Перетаскивание изображений 5 173 • Canvas Drawing 5 543 • Рисование Луны 5 244 • Поворот изображения 4 791 • Рисование стержней 3 388 • Paint on Shape 2 648 • Генератор кроссвордов 3 532 • Головоломка Paletto 2 821 • Теорема Монжа об окружностях 3 632 • Пазл Numbrix 2 375 • Заборы и коммивояжеры 3 059 • Игра HIP 2 013 • Игра Go (Го) 1 938 • Симулятор лифта 2 297 • Программа укладки плитки 2 001 • Генератор лабиринта 2 455 • Проверка числового ввода 2 138 • HEX View 2 474 • Физический маятник 2 090

Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)

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