/*---------------------------------------------------------

    葷款靛 檬扁拳

        SoundOpen(擴檔快 勤甸);

        LoadWavLis("府膠飄 頗老");

    葷款靛 敲飯撈

        硅版瀾廄 => PlayBGM("硅版頗老");
        瓤苞瀾   => PlaySound(瓤苞瀾 牢鄲膠, 杭俘(0~10));

    硅版杭俘煉例
        ChangeBGMVolume(杭俘(0~10));

    杭俘Off
        Silence();

    硅版瀾廄 Replay

         擴檔快 皋技瘤 貿府風憑俊輯
         MM_MCINOTIFY 皋技瘤俊輯 貿府

        if (Message.Msg == MM_MCINOTIFY)
        {
            ReplayBGM();
            Message.Result = true;
        } else
        {
            TForm::WndProc(Message);
        }


    葷款靛 輛豐

        SoundClose()
-----------------------------------------------------------*/

procedure SoundOpen(hWnd:HWND): bool;
procedure SoundClose();
procedure LoadWavList(listfile:AnsiString);
procedure PlayBGM(str:AnsiString);
procedure RePlayBGM();
procedure PlaySound(soundindex:integer, volum:integer);
procedure ChangeBGMVolume(volume:integer);
procedure Silence();