B bjaman Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-16 #2 在MainForm上加一下TOLEContainer组件，在组件上点右键菜单，选插入对象，选中“声音”，弹出音频对象编辑窗，在此窗上点编辑菜单--》插入文件，选择你的音乐文件插入,可以现场试听并编辑效果。随后，在程序中调用如下： procedure Tmainform.FormShow(Sender: TObject); begin OLEContainer1.DoVerb(0); end;
在MainForm上加一下TOLEContainer组件，在组件上点右键菜单，选插入对象，选中“声音”，弹出音频对象编辑窗，在此窗上点编辑菜单--》插入文件，选择你的音乐文件插入,可以现场试听并编辑效果。随后，在程序中调用如下： procedure Tmainform.FormShow(Sender: TObject); begin OLEContainer1.DoVerb(0); end;
N Netsoft Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-16 #3 加一个TMediaPlayer组件 设置FileName为你的音乐文件路径。AutoOpen为True Visible为False; TForm的OnCreate（即加载时）或其他控件事件时Play就可以了， TMediaPlayer控件可识别大部分音乐格式(除REALPLAY的格式) 试试看，呵呵~~~~~~~~~~~~~~~~~~~~~~~
加一个TMediaPlayer组件 设置FileName为你的音乐文件路径。AutoOpen为True Visible为False; TForm的OnCreate（即加载时）或其他控件事件时Play就可以了， TMediaPlayer控件可识别大部分音乐格式(除REALPLAY的格式) 试试看，呵呵~~~~~~~~~~~~~~~~~~~~~~~
W wjfgm Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-16 #4 我也很感兴趣，楼上的两位老兄，TOLEContainer组件和TMediaPlayer组件是第三方控件吗？
V vmao Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-16 #5 你也可以放个twebbrowser控件，from 加载的时候加载网页， 在网页的html文件中加入背景音乐，这样被的网站的背景音乐你也能利用了！呵呵~~
C coolqiang Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-16 #6 用TMediaPlayer控件，Delphi自带的！
W wjfgm Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-17 #8 To:Netsoft TMediaPlayer组件它怎么不能自动重新播放啊 我已经将AutoRewind属性设为True了
迷 迷糊 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-17 #9 直接用api函数 playsound就行 uses mmsystem PlaySound('d:/aa.wav',0,SND_LOOP);
