delphi 加入背景音乐两法

 

//以下的代码为播放背景音乐
 var  
        mciOpenParms:   TMCI_Open_Parms;  
        m_MCIDeviceID:   MCIDEVICEID;  

procedure TForm1.FormCreate(Sender: TObject);
var
mciPlayParms:MCI_PLAY_PARMS;
ret:   integer;
begin
try
  begin
 mciOpenParms.lpstrDeviceType:='''';  
      mciOpenParms.lpstrElementName   :=   ''做你的爱人.mp3'';  
      mciSendCommand(0,MCI_OPEN,MCI_OPEN_ELEMENT,DWORD(@mciOpenParms));
      m_MCIDeviceID   :=   mciOpenParms.wDeviceID;  
       mciPlayParms.dwCallback   :=   Form1.Handle;  
      mciPlayParms.dwFrom   :=   0;  
      ret   :=   mciSendCommand(m_MCIDeviceID,MCI_PLAY,MCI_FROM   or   MCI_NOTIFY,integer(@mciPlayParms));
      end;
   except

    end;
end; 

代码非源创

如果要做一些比较艺术化的程序时，你会想到插入背景音乐，这时你是否使用了TMediaPlayer控件来播放音乐呢？其实我们大可放弃该方法，直接使用WINDOWS为 我们提供的API函数来播放音乐，方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:\1.mid为播放的文件，NN为自定义名称标志

　　

procedure TForm1.Button1Click(Sender: TObject);
begin
//播放音乐
MCISendString(OPEN e:\1.MID TYPE SEQUENCER ALIAS NN, , 0, 0);
MCISendString(PLAY NN FROM 0, , 0, 0);
MCISendString(CLOSE ANIMATION, , 0, 0);
end; procedure TForm1.Button2Click(Sender: TObject);
begin
//停止播放
MCISendString(OPEN e:\1.MID TYPE SEQUENCER ALIAS NN, , 0, 0);
MCISendString(STOP NN, , 0, 0);
MCISendString(CLOSE ANIMATION, , 0, 0);
end;