RSS订阅 | 匿名投稿
您的位置:网站首页 > 媒体 > 正文

delphi简单的播放声音

作者:admin 来源:未知 日期:2010/1/30 15:05:08 人气: 标签:

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

procedureTAboutBox.FormClick(Sender:TObject);
begin
//停止播放
sndplaysound('',snd_async);
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
上一篇:获取网络日期