用PlaySound播放音频文件的问题。

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'd:\ee.wma';
  PlaySound(PChar('d:\ee.wma'), 0, SND_ASYNC);
end;前面引用了uses MMSystem;但是运行此段代码不能播放，请各位了解的帮忙指点。谢谢！

Answer 1

搜索了下发现 PlaySound只能播入WAV格式的文件，把文件转成WAV格式的就可以播放了。
但是这样必须设置文件的路径，有什么方法可以把文件件是EXE进行绑定？

Answer 2

S:=ExtractFilePath(paramstr(0))+‘EE.WAV’；
ExtractFilePath(paramstr(0))表示是EXE的根目录