如果我用MS自带的MediaPlay播放.Wav文件，需要传入一个为字符类型的表示文件名称的参数，如果我把声音文件已经编译成资源文件了，该怎么调用！？

Question

它好象没有类似Animate控件那样有一个resName这样的属性参数吧！

Answer 1

新建一个文本文件加入下面一行：
test RCDATA "d:\Music\万水千山纵横.wav"  //这个文件是我电脑上的，你可以自己改。
然后保存为test.rc,最后在工程的同一个目录，然后将其编译成.res文件
在主窗中加入该资源文件 {$R test.res}procedure TForm1.Button1Click(Sender: TObject);
var
  RS: TResourceStream;
begin
  RS := TResourceStream.Create(Hinstance, 'test', RT_RCDATA);
  RS.SaveToFile('test.wav');
  MediaPlayer1.FileName := 'test.wav';
  MediaPlayer1.Open;
end;

Answer 2

试过了，不出错，但是不发声音啊！
当然我把wav文件换成我机器上的了

Answer 3

 好象第二次运行便出错： can't create test.wav
我在其后加了语句 rs.destroy还是出错！
 
 如果我要把两个.wav文件放在同一个资源文件中编译后调用，怎么写！？
 如： 
 test1 RCDATA "d:\Music\万水千山纵横1.wav" 
 test2 RCDATA "d:\Music\万水千山纵横1.wav" 

Answer 4

>>好象第二次运行便出错： can't create test.wav,
这是因为MediaPlayer已经打开了该文件，无法覆盖之,并不是rs没有释放的原因。>>试过了，不出错，但是不发声音啊！
我试了，会发声呀，你有没有点击MediaPlayer的播放按钮呀或者再加一句MediaPlayer.Play;>>如果我要把两个.wav文件放在同一个资源文件中编译后调用，怎么写！？
RS := TResourceStream.Create(Hinstance, 'test1', RT_RCDATA);//第二个参数就是要获取的资源名称，就是在.rc文件中写的