uses MMSystem;

procedure TFmSound.playBtnClick(Sender: TObject);

begin

    PlaySound(PChar('./sound.wav'),0,SND_NODEFAULT or SND_ASYNC);

end;

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;