用PlaySound播放音频文件的问题。
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'd:\ee.wma';
PlaySound(PChar('d:\ee.wma'), 0, SND_ASYNC);
end;

前面引用了uses MMSystem;但是运行此段代码不能播放，请各位了解的帮忙指点。谢谢！

[解决办法]
S:=ExtractFilePath(paramstr(0))+‘EE.WAV’；


ExtractFilePath(paramstr(0))表示是EXE的根目录