如何实现音乐循环播放以及把音乐文件嵌入EXE文件里(100分)

  • 主题发起人 主题发起人 lesser-panda
  • 开始时间 开始时间
L

lesser-panda

Unregistered / Unconfirmed
GUEST, unregistred user!
如题所示。
我翻了一下旧贴，讲的不够详细
望高手指点。100分敬上
 
playsound（）
 
我知道是调用playsound()这个API函数
但是我不会呀，
尤其是我不想别人用我的音乐文件，想把音乐文件嵌入EXE文件里
 
加一个timer控件，事件代码如下：
if mediaplayer1.positon=mediaplayer1.max then

mediaplayer1.play;

至于嵌入音乐文件可以用资源文件代替
 
有这个语句吗？mediaplayer1.max
 
to cAkk, cheka
只能向你们求救了
 
改改：
是mediaplayer1.length不是max
 
还有个更简单的方法！
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

if mediaplayer1.position=mediaplayer1.length then

mediaplayer1.play;
end;
 
那怎样添加到资源文件里？
 
作个1.rc的文件如下：
mywav WAVE happy.wav
用delphi自己带的brcc32编译格式如下：
c:/brcc32 1.rc
这样生成一个1.res资源文件！
播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);
注意要uses mmsystem
[:)]ok?
 
我有点明白了，等我搞成功我再发分
thank you
 
谢谢，非常的感谢。100分收好 D影子D。以后还要问
播放列表的问题。暂时为止
 
多人接受答案了。
 
uses mmsystem;
......
....
.,...
...
Playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
不能播放啊！
 
您必须登录或注册才可回复。

Similar threads

S
怎么实现连续播放多个音乐文件(20分)
回复
3
查看
164
wangydm
W
Q
怎么样才能让资源文件里的WAV声音文件循环播放？？？ (50分)
回复
12
查看
351
陈礼泉
陈
L
mid声音文件可以内嵌到EXE文件里，而且循环播放吗？(50分)
回复
6
查看
318
lesser-panda
L
L
如何将MP3加入到EXE文件中(30分)
回复
10
查看
243
linhl
L
疾
我的新作-Music Star（音乐之星）(0分)
回复
0
查看
249
疾风之猫
疾
后退
顶部