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

本文整理自网络，侵删。

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

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

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

相关阅读 >>

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi datamodule1 fdconnection1数据库连接

Delphi 从url地址中获得文件名

Delphi ifileoperation替换shfileoperation

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

Delphi gif 动画建立

Delphi中clientdataset的用法小结

Delphi 让窗口一直置顶，并且焦点也不移出

Delphi 获取电脑进程网络连接ip端口

Delphi 去掉警告

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

转载请注明出处：木庄网络博客 » Delphi设计循环播放声音文件程序