MediaPlayer

[Alex21]

Блин, ну Один МедиаПлэер для фоновой музыки, еще одын для ошибок/угадывания.
Отдельный таймер (1000 мс) для отслеживания не кончилась ли музыка, в него ставишь код из моего поста #6

[KORT]

Этот таймер, следит за тем, когда пройдет время, а не музыка.

[Квэнди]

Тебе нужно что ? чтобы одна и таже мелодия игралась не переставая ?

[KORT]

Конечно же ДА!!!!

[Квэнди]

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer;

type
  TForm15 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    procedure MediaPlayer1Notify(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position>=MediaPlayer1.Length then
  begin
    MediaPlayer1.Stop;
    MediaPlayer1.Play;
  end;
end;

end.

  object MediaPlayer1: TMediaPlayer
    Left = 88
    Top = 64
    Width = 253
    Height = 30
    AutoOpen = True
    FileName =
      'D:\Documents and Settings\Pavel\'#1056#1072#1073#1086#1095#1080#1081' '#1089#1090#1086#1083'\kill_bill_-_bang-ba' +
      'ng.mp3'
    TabOrder = 0
    OnNotify = MediaPlayer1Notify
  end

[KORT]

Квэнди огромное спасибо, работает как часы!