delphi简单的播放声音

QQ空间 新浪微博 腾讯微博 腾讯朋友 QQ收藏 百度空间 百度贴吧 更多

procedureTaboutBox.FormShow(Sender:TObject); begin //播放当前目录下的welcome.wav文件 sndplaysound('welcome.wav',snd_async); end; procedureTAboutBox.FormClick(Sender:TObject); begin //停止播放 sndplaysound('',snd_async); end;