procedure TForm3.Button1Click(Sender: TObject);
var sFileName:string;
begin
sFileName:=TPath.Combine(TPath.GetDocumentsPath,'禁止吸烟.wav');
showmessage(sFileName);
MediaPlayer1.Stop ;
MediaPlayer1.FileName:= sFileName;
MediaPlayer1.Play;
end;

该代码片段描述了Delphi程序中,当Button1被点击时,从指定路径加载并播放名为禁止吸烟.wav的音频文件的过程,涉及到路径操作和MediaPlayer组件的控制。
2847

被折叠的 条评论
为什么被折叠?



