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
本文网址：
上一篇：获取网络日期
下一篇：delphi利用系统时间产生随机数的函数
已有条评论信息，点击查看网友评论
姓名：　验证码：看不清楚，换一个