soundfx.h

解元 传奇2客户端delphi源程序

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

    荤款靛 檬扁拳

        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();