Fórum Tocar 3 músicas MP3 em seqüencia com o MPlayer #325419

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Musica: String;
  Musica1: String = ´C:\aa.mp3´;
  Musica2: String = ´C:\bb.mp3´;
  Musica3: String = ´C:\cc.mp3´;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.Notify := false;
  MediaPlayer1.FileName := Musica;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then begin

if (Musica = Musica3) then begin
MediaPlayer1.Close;
exit;
end;

if (Musica = Musica2) then begin
Musica := Musica3;
button1.Click;
end;

if (Musica = Musica1) then begin
Musica := Musica2;
button1.Click;
end;

end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Musica:= Musica1;
end;

end.