unit Uni_musicPlayer;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, MPlayer, StdCtrls, ExtCtrls, jpeg, RxGIF;type  TForm1 = class(TForm)    Panel1: TPanel;    MediaPlayer1: TMediaPlayer;    Image1: TImage;    Image8: TImage;    Image9: TImage;    Imgnext: TImage;    Imgprev: TImage;    ListBox1: TListBox;    Panel2: TPanel;    procedure FormCreate(Sender: TObject);    procedure Image1Click(Sender: TObject);    procedure FindFiles(APath: String);    procedure ListBox1Click(Sender: TObject);    procedure ImgnextClick(Sender: TObject);    procedure ImgprevClick(Sender: TObject);    procedure MediaPlayer1Notify(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin //Image1.Picture.LoadFromFile(‘images\stop.jpg‘);  Image1.Picture.Assign(Image9.Picture);  ListBox1.Clear;  FindFiles(‘music\‘);  ListBox1.Selected[0]:=True;  MediaPlayer1.FileName:=‘music\‘+ListBox1.Items[ListBox1.ItemIndex];  MediaPlayer1.Open;end;procedure TForm1.Image1Click(Sender: TObject);begin  if  MediaPlayer1.Mode=mpplaying then  begin    MediaPlayer1.Pause;    Image1.Picture.Assign(Image9.Picture);  end  else   begin    MediaPlayer1.Display:=Panel2;    MediaPlayer1.Play;    Image1.Picture.Assign(Image8.Picture);    MediaPlayer1.DisplayRect:=Panel2.ClientRect;   end;  end;procedure TForm1.FindFiles(APath: String); var   FSearchRec : TSearchRec;   FindResult: integer; begin   FindResult := FindFirst(APath+‘*.*‘,faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);  try     while FindResult = 0 do    begin      Listbox1.Items.Add(fsearchrec.Name);      FindResult := FindNext(FSearchRec);    end;   finally     FindClose(FSearchRec);   end; end; procedure TForm1.ListBox1Click(Sender: TObject);begin   MediaPlayer1.FileName:=‘music\‘+ListBox1.Items[ListBox1.ItemIndex];   MediaPlayer1.Open;   Image1Click(Image1);  //单击歌曲名后自动播放end;procedure TForm1.ImgnextClick(Sender: TObject);var  mindex:Integer;begin    MediaPlayer1.Close;   if ListBox1.Items.Count-1>ListBox1.ItemIndex  then      mindex:=ListBox1.ItemIndex+1   else      mindex:=0;   MediaPlayer1.FileName:=‘music\‘+ListBox1.Items[mIndex];   ListBox1.Selected[mIndex]:=True;  //选中下一首   MediaPlayer1.Open;   Image1Click(Image1);  //单击next 按钮后自动播放end;procedure TForm1.ImgprevClick(Sender: TObject);var  mindex:Integer;begin    MediaPlayer1.Close;   if ListBox1.ItemIndex=0  then      mindex:=ListBox1.Items.Count-1   else     mindex:=ListBox1.ItemIndex-1;   MediaPlayer1.FileName:=‘music\‘+ListBox1.Items[mIndex];   ListBox1.Selected[mIndex]:=True;  //选中上一首   MediaPlayer1.Open;   Image1Click(Image1);  //单击next 按钮后自动播放end;procedure TForm1.MediaPlayer1Notify(Sender: TObject);begin   if MediaPlayer1.position>=MediaPlayer1.length then       ImgnextClick(Imgprev); //自动播放 ，调用下一首过程end;end.