Advanced Programming Interface, Sound & Resources

[mark+]

А как через API, можно проигрывать саунд из ресурсов, не садя его на HD? Я пробовал mciExecute, PlaySound и sndPlaySound. Вместо моего 107 (ID) саунда, я слышал только звук... ну тот, который винда выдает, когда появляется критическое окошко с инфой, типа:
MsgBox "Я критическое окно", vbCritical, "Еррор, типа"

P.S. Я знаю что не Advanced.

[mad_Max]

Я уже как-то писал эту функцию

Код: Выделить всё

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundData As Any, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_MEMORY = &H4

Public Sub ResPlaySound(ResourceId As Long)
    Dim sndBuff As String
    sndBuff = StrConv(LoadResData(ResourceId, "WAVE"), vbUnicode)
    Call sndPlaySound(sndBuff, SND_SYNC Or SND_MEMORY)
End Sub

Здесь только вместо "WAVE" поставь имя раздела ресурса, в котором лежит твой звук (обычно это и так WAVE), ну а ResourceID - ID нужного ресурса. У меня во всяком случае все работало.

[mark+]

Спасибо, а как можно AVI, из ресурсов? А...