怎的循环播放资源声音 delphi

怎样循环播放资源声音 delphi我加了个WAV声音到资源文件里面在调用播放的时候,是这个函数sndplaysound(ptr

怎样循环播放资源声音 delphi
我加了个WAV声音到资源文件里面
在调用播放的时候,是这个函数
sndplaysound(ptrsound,snd_async or snd_memory);

我想循环播放,应该是修改后面那个参数,去MMSystem.pas里面找了,还是不知道怎么解决
有了解的高手请回答~
snd_async or snd_memory  
or前面怎么改都没用,后面不能改


[解决办法]
SND_LOOP
http://www.cnblogs.com/witxjp/archive/2010/04/26/1720943.html