delphi 播放声

最新推荐文章于 2021-06-18 13:36:12 发布

Dcdu

最新推荐文章于 2021-06-18 13:36:12 发布

阅读量986

点赞数

分类专栏： delphi 文章标签： delphi button forms windows class xp

本文链接：https://blog.csdn.net/cdlff/article/details/3347440

版权

本文介绍了如何在Delphi中使用sndPlaySound函数播放声音，包括同步播放、异步播放和循环播放，并提供了按钮点击事件的示例代码。示例中还提到了可以播放内存中的声音文件。

摘要由CSDN通过智能技术生成

//声明:
sndPlaySound(
  lpszSoundName: PChar; {声音文件}
  uFlags: UINT{播放选项}
): BOOL;

//uFlags 参数可选值:
SND_SYNC      = 0; {同步播放, 程序须等到播放完毕才向下执行}
SND_ASYNC     = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}
SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}
SND_MEMORY    = 4; {播放内存中的声音, 譬如资源文件中的声音}
SND_LOOP      = 8; {循环播放, 需要和 SND_ASYNC 组合使用}
SND_NOSTOP    = 16;{如果当前正在播放声音, 立即返回 False}

 
 
 

//举例:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Form