计算机二级:delphi播放mp3背景音乐代码

文章作者 100test 发表时间 2011:03:22 18:43:58
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　//以下的代码为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.

　　特别推荐：

　　#0000ff>2009年9月全国计算机等级考试时间及科目预告

　　#0000ff>2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　#0000ff>2009年全国计算机等级考试报名信息汇总

　　#0000ff>2009年NCRE考试有新变化

　　#0000ff>2009年全国计算机等级考试-大纲

　　#0000ff>2009年上半年全国计算机二级考试试题及答案

　　#0000ff>2009年上半年全国计算机等级考试试题答案汇总