Delphi播放铃声

两种方式：

　　一、简单直接　　

uses MMSystem;

procedure TFmSound.playBtnClick(Sender: TObject);
begin
    PlaySound(PChar('./sound.wav'),0,SND_NODEFAULT or SND_ASYNC);
end;

　　二、写入资源文件

　　参考资源文件的规则来编写rc文件，1)编写.RC文件

　　.RC文件是资源的源文件，编译器也就编译这个文件，生成.RES的

　　首先在我们的项目子目录中建立一个纯文本文件，起名叫

　　 voice.rc，文件中添加一行内容为：

　　 VOICE WAV ****.WAV

　　其中****.WAV为你需要的声音文件

　　然后编译它
　在DOS的提示符下打 BRCC32 voice.RC 没报错就没问题！可以看到对应的目录下会有voice.RES文件，接着在你的工程中添加一行指令：

　　{$R voice.res}

　　然后添加如下函数并调用就可以了：

procedure TFmSound.voiceStart(const resName, resType: string);
var
  voiceRes:Pointer;
begin
  voiceRes:=Pointer(FindResource(hInstance,PChar(resName),PChar(resType)));
  if voiceRes<>nil then begin
     voiceRes:= Pointer(LoadResource(hInstance, HRSRC(voiceRes)));
     if voiceRes<>nil then voiceRes:=LockResource(HGLOBAL(voiceRes));
     sndPlaySound(voiceRes,SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
     UnlockResource(HGLOBAL(voiceRes));
     FreeResource(HGLOBAL(voiceRes));
  end;

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

    SND_ALIAS
    pszSound参数指定了注册表或WIN.INI中的系统事件的别名。

    SND_ALIAS_ID
    pszSound参数指定了预定义的声音标识符。

    SND_ASYNC
    用异步方式播放声音，PlaySound函数在开始播放后立即返回。

    SND_FILENAME
    pszSound参数指定了WAVE文件名。

    SND_LOOP
    重复播放声音，必须与SND_ASYNC标志一块使用。

    SND_MEMORY
    播放载入到内存中的声音，此时pszSound是指向声音数据的指针。

    SND_NODEFAULT
    不播放缺省声音，若无此标志，则PlaySound在没找到声音时会播放缺省声音。

    SND_NOSTOP
    PlaySound不打断原来的声音播出并立即返回FALSE。

    SND_NOWAIT
    如果驱动程序正忙则函数就不播放声音并立即返回。

    SND_PURGE
    停止所有与调用任务有关的声音。若参数pszSound为NULL，就停止所有的声音，否则，停止pszSound指定的声音。

    SND_RESOURCE
    pszSound参数是WAVE资源的标识符，这时要用到hmod参数。

    SND_SYNC
    同步播放声音，在播放完后PlaySound函数才返回。
*)
end;

其中的两个参数分别是资源文件标志符号的名称，就是上面的 VOICE,另一个参数则是资源的类型:WAV

参考：https://www.cnblogs.com/findumars/p/6863651.html