声音问题!!

Question

播放wav文件，可以引用Mediaplay控件。
并获取鼠标和图片坐标，处于区域里就播放声音。

Answer 1

还可以uses mmsystem
  sndplaysound('C:\WINNT\Media\ringin.wav',SND_ASYNC);'C:\WINNT\Media\ringin.wav'可以使用资源文件代替。

Answer 2

uses MMSystem;
发声：
playSound('aaa.wav');
procedure TForm1.playSound(waveName: string);
var where:string;
begin
  where:='sound\'+wavename;
  SndPlaySound(pchar(where),SND_FILENAME or SND_SYNC)；
end;或简单地：
  uses MMSystem;
  PlaySound ('dog.wav', 0, snd_Async);