Delphi设计循环播放声音文件程序


本文整理自网络,侵删。

 本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。 
  首先在程序的uses段中添加MMSYSTEM,然后在窗体的初始化过程中添加以下代码:

  procedure TForm1.FormCreate(Sender: TObject);
begin
 SndPlaySound('c:\RECYCLE.WAV',SND_ASYNC or SND_LOOP);
end;

  这样,在程序运行的初期,程序就会通过SndPlaySound函数循环不断地播放声音文件c:\RECYCLE.WAV。

相关阅读 >>

Delphi控件安装与删除

Delphi 判断指定字符串是否开头 startstext用法

idtcpclient和idtcpclient 主要属性和方法

sendmessage在结束进程上的使用

delph i判断ip地址是否正确

Delphi tokyo 版本 twebbrowser 的一个问题(bug?)

Delphi getsessionusername通过会话id得到会话名称

Delphi用命令行加载驱动

Delphi限制edit编辑框的输入

Delphi monthoftheyear、weekoftheyear、weekofthemonth、dayoftheyear … 相对时间

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...