Звук

[Робинович]

Привет.
Подскажите как регулировать звук, проверять формат в MCI Или лучше где найти полное описание.
Буду благодарен.

[Aleksej]

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

Private Type ulLong
    HiWord As Integer
    LoWord As Integer
End Type

Private Type uvLong
    n As Long
End Type

Private ulVol As ulLong
Private uvVol As uvLong

Public Function GetVolume() As Long

    Call waveOutGetVolume(0, uvVol.n)
        LSet ulVol = uvVol
       
    GetVolume = ulVol.LoWord And Max
End Function
Public Function SetVolume(Volume As Long)

    ulVol.HiWord = (Volume And &H7FFF&) - (Volume And &H8000&)
    ulVol.LoWord = (Volume And &H7FFF&) - (Volume And &H8000&)
   
    LSet uvVol = ulVol
   
        Call waveOutSetVolume(0, uvVol.n)
End Function