一个关于sndplaysoundw问题(200分)

本人是一个菜鸟，写了一个查询发音的小程序，结果问题出现：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var i:string;<br>&nbsp; &nbsp; pchar;<br>&nbsp; &nbsp; s:tstrings;<br><br>begin<br>&nbsp; &nbsp; s:=tstringlist.Create;<br>&nbsp; &nbsp; i:=edit1.text+'.wav';<br>&nbsp; &nbsp; s:=SearchFile(i,'wave',true,true);<br>&nbsp; &nbsp; p:=pchar(s.Text);<br>&nbsp; &nbsp; SndPlaySound(p,SND_ASYNC or SND_loop);<br>&nbsp; &nbsp; s.free;<br>end;<br>其中SearchFile为写的查询函数，类型定义为TStringlist，程序也没有报错，但就是不能发音，如果我把路径直接代替p写在SndPlaySound中就可以正常发音了，我困惑了，类型都转换为pchar了，结果却不仅相同，望大虾们帮忙

s是tstringlist,是一个字符串列表,应该取其中一个元素<br>p := pchar(s[0]);

谢谢，问题已经解决了。