Changeset 75

Timestamp:

Jan 26, 2007, 4:44:33 AM (17 years ago)

Author:

NoWest

Message:

Aux Mixer Timer Joy MMioを追加。

File:

• Include/api_mmsys.sbp (modified) (1 diff)

Include/api_mmsys.sbp

@@ -705 +705 @@
 
 
+'--------------------------------------------------------
+' Auxiliary audio support
+
+' device ID for aux device mapper
+Const AUX_MAPPER = (-1)
+
+' Auxiliary audio device capabilities structure
+Type AUXCAPSA
+    wMid As Word
+    wPid As Word
+    vDriverVersion As MMVERSION
+    szPname[ELM(MAXPNAMELEN)] As Char
+    wTechnology As Word
+    wReserved1 As Word
+    dwSupport As DWord
+End Type
+TypeDef PAUXCAPSA = *AUXCAPSA
+TypeDef NPAUXCAPSA = *AUXCAPSA
+TypeDef LPAUXCAPSA = *AUXCAPSA
+
+TypeDef AUXCAPS = AUXCAPSA
+TypeDef PAUXCAPS = PAUXCAPSA
+TypeDef NPAUXCAPS = NPAUXCAPSA
+TypeDef LPAUXCAPS = LPAUXCAPSA
+
+Const AUXCAPS_CDAUDIO = 1
+Const AUXCAPS_AUXIN = 2
+
+Const AUXCAPS_VOLUME = &H0001
+Const AUXCAPS_LRVOLUME = &H0002
+
+' auxiliary audio function prototypes
+Declare Function auxGetNumDevs Lib "winmm" () As DWord
+Declare Function auxGetDevCaps Lib "winmm" Alias "auxGetDevCapsA" (uDeviceID As DWord, pac As *AUXCAPS, cbac As DWord) As MMRESULT
+Declare Function auxSetVolume Lib "winmm" (uDeviceID As DWord, dwVolume As DWord) As MMRESULT
+Declare Function auxGetVolume Lib "winmm" (uDeviceID As DWord, pdwVolume As *DWord) As MMRESULT
+Declare Function auxOutMessage Lib "winmm" (uDeviceID As DWord, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
+
+
+'--------------------------------------------------------
+' Mixer Support
+
+TypeDef HMIXEROBJ = VoidPtr
+TypeDef LPHMIXEROBJ = HMIXEROBJ
+TypeDef HMIXER = VoidPtr
+TypeDef LPHMIXER = *HMIXER
+
+Const MIXER_SHORT_NAME_CHARS = 16
+Const MIXER_LONG_NAME_CHARS = 64
+
+Const MIXERR_INVALLINE = (MIXERR_BASE + 0)
+Const MIXERR_INVALCONTROL = (MIXERR_BASE + 1)
+Const MIXERR_INVALVALUE = (MIXERR_BASE + 2)
+Const MIXERR_LASTERROR = (MIXERR_BASE + 2)
+
+Const MIXER_OBJECTF_HANDLE = &H80000000
+Const MIXER_OBJECTF_MIXER = &H00000000
+Const MIXER_OBJECTF_HMIXER = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_MIXER)
+Const MIXER_OBJECTF_WAVEOUT = &H10000000
+Const MIXER_OBJECTF_HWAVEOUT = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_WAVEOUT)
+Const MIXER_OBJECTF_WAVEIN = &H20000000
+Const MIXER_OBJECTF_HWAVEIN = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_WAVEIN)
+Const MIXER_OBJECTF_MIDIOUT = &H30000000
+Const MIXER_OBJECTF_HMIDIOUT = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_MIDIOUT)
+Const MIXER_OBJECTF_MIDIIN = &H40000000
+Const MIXER_OBJECTF_HMIDIIN = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_MIDIIN)
+Const MIXER_OBJECTF_AUX = &H50000000
+
+Declare Function mixerGetNumDevs Lib "winmm" () As DWord
+
+Type MIXERCAPSA
+    wMid As Word
+    wPid As Word
+    vDriverVersion As MMVERSION
+    szPname[ELM(MAXPNAMELEN)] As Char
+    fdwSupport As DWord
+    cDestinations As DWord
+End Type
+TypeDef PMIXERCAPSA = *MIXERCAPSA
+TypeDef LPMIXERCAPSA = *MIXERCAPSA
+
+TypeDef MIXERCAPS = MIXERCAPSA
+TypeDef PMIXERCAPS = PMIXERCAPSA
+TypeDef LPMIXERCAPS = LPMIXERCAPSA
+
+Declare Function mixerGetDevCaps Lib "winmm" Alias "mixerGetDevCapsA" (uMxId As DWord, pmxcaps As *MIXERCAPS, cbmxcaps As DWord) As MMRESULT
+Declare Function mixerOpen Lib "winmm" (phmx As *HMIXER, uMxId As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
+Declare Function mixerClose Lib "winmm" (hmx As HMIXER) As MMRESULT
+Declare Function mixerMessage Lib "winmm" (hmx As HMIXER, uMsg As DWord, dwParam1 As DWord, dwParam2 As DWord) As DWord
+
+Type TARGET
+    dwType As DWord
+    dwDeviceID As DWord
+    wMid As Word
+    wPid As Word
+    vDriverVersion As MMVERSION
+    szPname[ELM(MAXPNAMELEN)] As Char
+End Type
+
+Type MIXERLINEA
+    cbStruct As DWord
+    dwDestination As DWord
+    dwSource As DWord
+    dwLineID As DWord
+    fdwLine As DWord
+    dwUser As DWord
+    dwComponentType As DWord
+    cChannels As DWord
+    cConnections As DWord
+    cControls As DWord
+    szShortName[ELM(MIXER_SHORT_NAME_CHARS)] As Char
+    szName[ELM(MIXER_LONG_NAME_CHARS)] As Char
+    Target As TARGET
+End Type
+TypeDef PMIXERLINEA = *MIXERLINEA
+TypeDef LPMIXERLINEA = *MIXERLINEA
+
+TypeDef MIXERLINE = MIXERLINEA
+TypeDef PMIXERLINE = PMIXERLINEA
+TypeDef LPMIXERLINE = LPMIXERLINEA
+
+' MIXERLINE.fdwLine
+Const MIXERLINE_LINEF_ACTIVE = &H00000001
+Const MIXERLINE_LINEF_DISCONNECTED = &H00008000
+Const MIXERLINE_LINEF_SOURCE = &H80000000
+
+' MIXERLINE.dwComponentType
+Const MIXERLINE_COMPONENTTYPE_DST_FIRST = &H00000000
+Const MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 0)
+Const MIXERLINE_COMPONENTTYPE_DST_DIGITAL = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 1)
+Const MIXERLINE_COMPONENTTYPE_DST_LINE = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 2)
+Const MIXERLINE_COMPONENTTYPE_DST_MONITOR = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 3)
+Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
+Const MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 5)
+Const MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 6)
+Const MIXERLINE_COMPONENTTYPE_DST_WAVEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 7)
+Const MIXERLINE_COMPONENTTYPE_DST_VOICEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8)
+Const MIXERLINE_COMPONENTTYPE_DST_LAST = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8)
+
+Const MIXERLINE_COMPONENTTYPE_SRC_FIRST = &H00001000
+Const MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 0)
+Const MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 1)
+Const MIXERLINE_COMPONENTTYPE_SRC_LINE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2)
+Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3)
+Const MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 4)
+Const MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 5)
+Const MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 6)
+Const MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 7)
+Const MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8)
+Const MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 9)
+Const MIXERLINE_COMPONENTTYPE_SRC_ANALOG = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10)
+Const MIXERLINE_COMPONENTTYPE_SRC_LAST = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10)
+
+' MIXERLINE.Target.dwType
+Const MIXERLINE_TARGETTYPE_UNDEFINED = 0
+Const MIXERLINE_TARGETTYPE_WAVEOUT = 1
+Const MIXERLINE_TARGETTYPE_WAVEIN = 2
+Const MIXERLINE_TARGETTYPE_MIDIOUT = 3
+Const MIXERLINE_TARGETTYPE_MIDIIN = 4
+Const MIXERLINE_TARGETTYPE_AUX = 5
+
+Declare Function mixerGetLineInfo Lib "winmm" Alias "mixerGetLineInfoA" (hmxobj As HMIXEROBJ, pmxl As *MIXERLINE, fdwInfo As DWord) As MMRESULT
+
+Const MIXER_GETLINEINFOF_DESTINATION = &H00000000
+Const MIXER_GETLINEINFOF_SOURCE = &H00000001
+Const MIXER_GETLINEINFOF_LINEID = &H00000002
+Const MIXER_GETLINEINFOF_COMPONENTTYPE = &H00000003
+Const MIXER_GETLINEINFOF_TARGETTYPE = &H00000004
+Const MIXER_GETLINEINFOF_QUERYMASK = &H0000000F
+
+Declare Function mixerGetID Lib "winmm" (hmxobj As HMIXEROBJ, puMxId As *DWord, fdwId As DWord) As MMRESULT
+
+Type MIXERCONTROLA
+    cbStruct As DWord
+    dwControlID As DWord
+    dwControlType As DWord
+    fdwControl As DWord
+    cMultipleItems As DWord
+    szShortName[ELM(MIXER_SHORT_NAME_CHARS)] As Char
+    szName[ELM(MIXER_LONG_NAME_CHARS)] As Char
+    Bounds[ELM(6)] As DWord
+    Metrics[ELM(6)] As DWord
+End Type
+TypeDef PMIXERCONTROLA = *MIXERCONTROLA
+TypeDef LPMIXERCONTROLA = *MIXERCONTROLA
+
+TypeDef MIXERCONTROL = MIXERCONTROLA
+TypeDef PMIXERCONTROL = PMIXERCONTROLA
+TypeDef LPMIXERCONTROL = LPMIXERCONTROLA
+
+' MIXERCONTROL.fdwControl
+Const MIXERCONTROL_CONTROLF_UNIFORM = &H00000001
+Const MIXERCONTROL_CONTROLF_MULTIPLE = &H00000002
+Const MIXERCONTROL_CONTROLF_DISABLED = &H80000000
+
+' MIXERCONTROL_CONTROLTYPE_xxx
+Const MIXERCONTROL_CT_CLASS_MASK = &HF0000000
+Const MIXERCONTROL_CT_CLASS_CUSTOM = &H00000000
+Const MIXERCONTROL_CT_CLASS_METER = &H10000000
+Const MIXERCONTROL_CT_CLASS_SWITCH = &H20000000
+Const MIXERCONTROL_CT_CLASS_NUMBER = &H30000000
+Const MIXERCONTROL_CT_CLASS_SLIDER = &H40000000
+Const MIXERCONTROL_CT_CLASS_FADER = &H50000000
+Const MIXERCONTROL_CT_CLASS_TIME = &H60000000
+Const MIXERCONTROL_CT_CLASS_LIST = &H70000000
+Const MIXERCONTROL_CT_SUBCLASS_MASK = &H0F000000
+Const MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = &H00000000
+Const MIXERCONTROL_CT_SC_SWITCH_BUTTON = &H01000000
+Const MIXERCONTROL_CT_SC_METER_POLLED = &H00000000
+Const MIXERCONTROL_CT_SC_TIME_MICROSECS = &H00000000
+Const MIXERCONTROL_CT_SC_TIME_MILLISECS = &H01000000
+Const MIXERCONTROL_CT_SC_LIST_SINGLE = &H00000000
+Const MIXERCONTROL_CT_SC_LIST_MULTIPLE = &H01000000
+Const MIXERCONTROL_CT_UNITS_MASK = &H00FF0000
+Const MIXERCONTROL_CT_UNITS_CUSTOM = &H00000000
+Const MIXERCONTROL_CT_UNITS_BOOLEAN = &H00010000
+Const MIXERCONTROL_CT_UNITS_SIGNED = &H00020000
+Const MIXERCONTROL_CT_UNITS_UNSIGNED = &H00030000
+Const MIXERCONTROL_CT_UNITS_DECIBELS = &H00040000
+Const MIXERCONTROL_CT_UNITS_PERCENT = &H00050000
+
+' MIXERCONTROL.dwControlType
+Const MIXERCONTROL_CONTROLTYPE_CUSTOM = (MIXERCONTROL_CT_CLASS_CUSTOM OR MIXERCONTROL_CT_UNITS_CUSTOM)
+Const MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = (MIXERCONTROL_CT_CLASS_METER OR MIXERCONTROL_CT_SC_METER_POLLED OR MIXERCONTROL_CT_UNITS_BOOLEAN)
+Const MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER OR MIXERCONTROL_CT_SC_METER_POLLED OR MIXERCONTROL_CT_UNITS_SIGNED)
+Const MIXERCONTROL_CONTROLTYPE_PEAKMETER = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1)
+Const MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER OR MIXERCONTROL_CT_SC_METER_POLLED OR MIXERCONTROL_CT_UNITS_UNSIGNED)
+Const MIXERCONTROL_CONTROLTYPE_BOOLEAN = (MIXERCONTROL_CT_CLASS_SWITCH OR MIXERCONTROL_CT_SC_SWITCH_BOOLEAN OR MIXERCONTROL_CT_UNITS_BOOLEAN)
+Const MIXERCONTROL_CONTROLTYPE_ONOFF = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 1)
+Const MIXERCONTROL_CONTROLTYPE_MUTE = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2)
+Const MIXERCONTROL_CONTROLTYPE_MONO = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 3)
+Const MIXERCONTROL_CONTROLTYPE_LOUDNESS = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 4)
+Const MIXERCONTROL_CONTROLTYPE_STEREOENH = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 5)
+Const MIXERCONTROL_CONTROLTYPE_BUTTON = (MIXERCONTROL_CT_CLASS_SWITCH OR MIXERCONTROL_CT_SC_SWITCH_BUTTON OR MIXERCONTROL_CT_UNITS_BOOLEAN)
+Const MIXERCONTROL_CONTROLTYPE_DECIBELS = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_DECIBELS)
+Const MIXERCONTROL_CONTROLTYPE_SIGNED = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_SIGNED)
+Const MIXERCONTROL_CONTROLTYPE_UNSIGNED = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_UNSIGNED)
+Const MIXERCONTROL_CONTROLTYPE_PERCENT = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_PERCENT)
+Const MIXERCONTROL_CONTROLTYPE_SLIDER = (MIXERCONTROL_CT_CLASS_SLIDER OR MIXERCONTROL_CT_UNITS_SIGNED)
+Const MIXERCONTROL_CONTROLTYPE_PAN = (MIXERCONTROL_CONTROLTYPE_SLIDER + 1)
+Const MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = (MIXERCONTROL_CONTROLTYPE_SLIDER + 2)
+Const MIXERCONTROL_CONTROLTYPE_FADER = (MIXERCONTROL_CT_CLASS_FADER OR MIXERCONTROL_CT_UNITS_UNSIGNED)
+Const MIXERCONTROL_CONTROLTYPE_VOLUME = (MIXERCONTROL_CONTROLTYPE_FADER + 1)
+Const MIXERCONTROL_CONTROLTYPE_BASS = (MIXERCONTROL_CONTROLTYPE_FADER + 2)
+Const MIXERCONTROL_CONTROLTYPE_TREBLE = (MIXERCONTROL_CONTROLTYPE_FADER + 3)
+Const MIXERCONTROL_CONTROLTYPE_EQUALIZER = (MIXERCONTROL_CONTROLTYPE_FADER + 4)
+Const MIXERCONTROL_CONTROLTYPE_SINGLESELECT = (MIXERCONTROL_CT_CLASS_LIST OR MIXERCONTROL_CT_SC_LIST_SINGLE OR MIXERCONTROL_CT_UNITS_BOOLEAN)
+Const MIXERCONTROL_CONTROLTYPE_MUX = (MIXERCONTROL_CONTROLTYPE_SINGLESELECT + 1)
+Const MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = (MIXERCONTROL_CT_CLASS_LIST OR MIXERCONTROL_CT_SC_LIST_MULTIPLE OR MIXERCONTROL_CT_UNITS_BOOLEAN)
+Const MIXERCONTROL_CONTROLTYPE_MIXER = (MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT + 1)
+Const MIXERCONTROL_CONTROLTYPE_MICROTIME = (MIXERCONTROL_CT_CLASS_TIME OR MIXERCONTROL_CT_SC_TIME_MICROSECS OR MIXERCONTROL_CT_UNITS_UNSIGNED)
+Const MIXERCONTROL_CONTROLTYPE_MILLITIME = (MIXERCONTROL_CT_CLASS_TIME OR MIXERCONTROL_CT_SC_TIME_MILLISECS OR MIXERCONTROL_CT_UNITS_UNSIGNED)
+
+Type MIXERLINECONTROLSA
+    cbStruct As DWord
+    dwLineID As DWord
+    dwControl_ID_Type As DWord
+    cControls As DWord
+    cbmxctrl As DWord
+    pamxctrl As *MIXERCONTROL
+End Type
+\TypeDef PMIXERLINECONTROLSA = *MIXERLINECONTROLSA
+TypeDef LPMIXERLINECONTROLSA = *MIXERLINECONTROLSA
+
+TypeDef MIXERLINECONTROLS = MIXERLINECONTROLSA
+TypeDef PMIXERLINECONTROLS = PMIXERLINECONTROLSA
+TypeDef LPMIXERLINECONTROLS = LPMIXERLINECONTROLSA
+
+Declare Function mixerGetLineControls Lib "winmm" Alias "mixerGetLineControlsA" (hmxobj As HMIXEROBJ, pmxlc As *MIXERLINECONTROLS, fdwControls As DWord) As MMRESULT
+
+Const MIXER_GETLINECONTROLSF_ALL = &H00000000
+Const MIXER_GETLINECONTROLSF_ONEBYID = &H00000001
+Const MIXER_GETLINECONTROLSF_ONEBYTYPE = &H00000002
+Const MIXER_GETLINECONTROLSF_QUERYMASK = &H0000000F
+
+Type MIXERCONTROLDETAILS
+    cbStruct As DWord
+    dwControlID As DWord
+    cChannels As DWord
+    cMultipleItems As DWord
+    cbDetails As DWord
+    paDetails As VoidPtr
+End Type
+TypeDef PMIXERCONTROLDETAILS = *MIXERCONTROLDETAILS
+TypeDef LPMIXERCONTROLDETAILS = *MIXERCONTROLDETAILS
+
+Type MIXERCONTROLDETAILS_LISTTEXTA
+    dwParam1 As DWord
+    dwParam2 As DWord
+    szName[ELM(MIXER_LONG_NAME_CHARS)] As Char
+End Type
+TypeDef PMIXERCONTROLDETAILS_LISTTEXTA = *MIXERCONTROLDETAILS_LISTTEXTA
+TypeDef LPMIXERCONTROLDETAILS_LISTTEXTA = *MIXERCONTROLDETAILS_LISTTEXTA
+
+TypeDef MIXERCONTROLDETAILS_LISTTEXT = MIXERCONTROLDETAILS_LISTTEXTA
+TypeDef PMIXERCONTROLDETAILS_LISTTEXT = PMIXERCONTROLDETAILS_LISTTEXTA
+TypeDef LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTA
+
+Type MIXERCONTROLDETAILS_BOOLEAN
+    fValue As Long
+End Type
+TypeDef PMIXERCONTROLDETAILS_BOOLEAN = *MIXERCONTROLDETAILS_BOOLEAN
+TypeDef LPMIXERCONTROLDETAILS_BOOLEAN = *MIXERCONTROLDETAILS_BOOLEAN
+
+Type MIXERCONTROLDETAILS_SIGNED
+    lValue As Long
+End Type
+TypeDef PMIXERCONTROLDETAILS_SIGNED = *MIXERCONTROLDETAILS_SIGNED
+TypeDef LPMIXERCONTROLDETAILS_SIGNED = *MIXERCONTROLDETAILS_SIGNED
+
+Type MIXERCONTROLDETAILS_UNSIGNED
+    dwValue As DWord
+End Type
+TypeDef PMIXERCONTROLDETAILS_UNSIGNED = *MIXERCONTROLDETAILS_UNSIGNED
+TypeDef LPMIXERCONTROLDETAILS_UNSIGNED = *MIXERCONTROLDETAILS_UNSIGNED
+
+Declare Function mixerGetControlDetailsA Lib "winmm" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
+Declare Function mixerGetControlDetailsW Lib "winmm" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
+Declare Function mixerGetControlDetails Lib "winmm" Alias "mixerGetControlDetailsA" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
+
+Const MIXER_GETCONTROLDETAILSF_VALUE = &H00000000
+Const MIXER_GETCONTROLDETAILSF_LISTTEXT = &H00000001
+Const MIXER_GETCONTROLDETAILSF_QUERYMASK = &H0000000F
+
+Declare Function mixerSetControlDetails Lib "winmm" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
+
+Const MIXER_SETCONTROLDETAILSF_VALUE = &H00000000
+Const MIXER_SETCONTROLDETAILSF_CUSTOM = &H00000001
+Const MIXER_SETCONTROLDETAILSF_QUERYMASK = &H0000000F
+
+
+'--------------------------------------------------------
+' Timer support
+
+' timer error
+Const TIMERR_NOERROR = (0)
+Const TIMERR_NOCANDO = (TIMERR_BASE+1)
+Const TIMERR_STRUCT = (TIMERR_BASE+33)
+
+TypeDef LPTIMECALLBACK = *Sub(uTimerID As DWord, uMsg As DWord, dwUser As DWord, dw1 As DWord, dw2 As DWord)
+
+Const TIME_ONESHOT = &H0000
+Const TIME_PERIODIC = &H0001
+
+Const TIME_CALLBACK_FUNCTION = &H0000
+Const TIME_CALLBACK_EVENT_SET = &H0010
+Const TIME_CALLBACK_EVENT_PULSE = &H0020
+
+' timer device capabilities data structure
+Type TIMECAPS
+    wPeriodMin As DWord
+    wPeriodMax As DWord
+End Type
+TypeDef PTIMECAPS = *TIMECAPS
+TypeDef NPTIMECAPS = *TIMECAPS
+TypeDef LPTIMECAPS = *TIMECAPS
+
+' timer function prototypes
+Declare Function timeGetSystemTime Lib "winmm" (pmmt As *MMTIME, cbmmt As DWord) As MMRESULT
+Declare Function timeGetTime Lib "winmm" () As DWord
+Declare Function timeSetEvent Lib "winmm" (uDelay As DWord, uResolution As DWord, fptc As LPTIMECALLBACK, dwUser As DWord, fuEvent As DWord) As MMRESULT
+Declare Function timeKillEvent Lib "winmm" (uTimerID As DWord) As MMRESULT
+Declare Function timeGetDevCaps Lib "winmm" (ptc As *TIMECAPS, cbtc As DWord) As MMRESULT
+Declare Function timeBeginPeriod Lib "winmm" (uPeriod As DWord) As MMRESULT
+Declare Function timeEndPeriod Lib "winmm" (uPeriod As DWord) As MMRESULT
+
+
+'--------------------------------------------------------
+' Joystick support
+
+' joystick error
+Const JOYERR_NOERROR = (0)
+Const JOYERR_PARMS = (JOYERR_BASE+5)
+Const JOYERR_NOCANDO = (JOYERR_BASE+6)
+Const JOYERR_UNPLUGGED = (JOYERR_BASE+7)
+
+' constants used with JOYINFO and JOYINFOEX structures and MM_JOY* messages
+Const JOY_BUTTON1 = &H0001
+Const JOY_BUTTON2 = &H0002
+Const JOY_BUTTON3 = &H0004
+Const JOY_BUTTON4 = &H0008
+Const JOY_BUTTON1CHG = &H0100
+Const JOY_BUTTON2CHG = &H0200
+Const JOY_BUTTON3CHG = &H0400
+Const JOY_BUTTON4CHG = &H0800
+
+' constants used with JOYINFOEX
+Const JOY_BUTTON5 = &H00000010
+Const JOY_BUTTON6 = &H00000020
+Const JOY_BUTTON7 = &H00000040
+Const JOY_BUTTON8 = &H00000080
+Const JOY_BUTTON9 = &H00000100
+Const JOY_BUTTON10 = &H00000200
+Const JOY_BUTTON11 = &H00000400
+Const JOY_BUTTON12 = &H00000800
+Const JOY_BUTTON13 = &H00001000
+Const JOY_BUTTON14 = &H00002000
+Const JOY_BUTTON15 = &H00004000
+Const JOY_BUTTON16 = &H00008000
+Const JOY_BUTTON17 = &H00010000
+Const JOY_BUTTON18 = &H00020000
+Const JOY_BUTTON19 = &H00040000
+Const JOY_BUTTON20 = &H00080000
+Const JOY_BUTTON21 = &H00100000
+Const JOY_BUTTON22 = &H00200000
+Const JOY_BUTTON23 = &H00400000
+Const JOY_BUTTON24 = &H00800000
+Const JOY_BUTTON25 = &H01000000
+Const JOY_BUTTON26 = &H02000000
+Const JOY_BUTTON27 = &H04000000
+Const JOY_BUTTON28 = &H08000000
+Const JOY_BUTTON29 = &H10000000
+Const JOY_BUTTON30 = &H20000000
+Const JOY_BUTTON31 = &H40000000
+Const JOY_BUTTON32 = &H80000000
+
+' constants used with JOYINFOEX structure
+Const JOY_POVCENTERED = (-1)
+Const JOY_POVFORWARD = 0
+Const JOY_POVRIGHT = 9000
+Const JOY_POVBACKWARD = 18000
+Const JOY_POVLEFT = 27000
+
+Const JOY_RETURNX = &H00000001
+Const JOY_RETURNY = &H00000002
+Const JOY_RETURNZ = &H00000004
+Const JOY_RETURNR = &H00000008
+Const JOY_RETURNU = &H00000010
+Const JOY_RETURNV = &H00000020
+Const JOY_RETURNPOV = &H00000040
+Const JOY_RETURNBUTTONS = &H00000080
+Const JOY_RETURNRAWDATA = &H00000100
+Const JOY_RETURNPOVCTS = &H00000200
+Const JOY_RETURNCENTERED = &H00000400
+Const JOY_USEDEADZONE = &H00000800
+Const JOY_RETURNALL = (JOY_RETURNX OR JOY_RETURNY OR JOY_RETURNZ OR JOY_RETURNR OR JOY_RETURNU OR JOY_RETURNV OR JOY_RETURNPOV OR JOY_RETURNBUTTONS)
+Const JOY_CAL_READALWAYS = &H00010000
+Const JOY_CAL_READXYONLY = &H00020000
+Const JOY_CAL_READ3 = &H00040000
+Const JOY_CAL_READ4 = &H00080000
+Const JOY_CAL_READXONLY = &H00100000
+Const JOY_CAL_READYONLY = &H00200000
+Const JOY_CAL_READ5 = &H00400000
+Const JOY_CAL_READ6 = &H00800000
+Const JOY_CAL_READZONLY = &H01000000
+Const JOY_CAL_READRONLY = &H02000000
+Const JOY_CAL_READUONLY = &H04000000
+Const JOY_CAL_READVONLY = &H08000000
+
+' joystick ID constants
+Const JOYSTICKID1 = 0
+Const JOYSTICKID2 = 1
+
+' joystick driver capabilites
+Const JOYCAPS_HASZ = &H0001
+Const JOYCAPS_HASR = &H0002
+Const JOYCAPS_HASU = &H0004
+Const JOYCAPS_HASV = &H0008
+Const JOYCAPS_HASPOV = &H0010
+Const JOYCAPS_POV4DIR = &H0020
+Const JOYCAPS_POVCTS = &H0040
+
+Type JOYCAPSA
+    wMid As Word
+    wPid As Word
+    szPname[ELM(MAXPNAMELEN)] As Char
+    wXmin As DWord
+    wXmax As DWord
+    wYmin As DWord
+    wYmax As DWord
+    wZmin As DWord
+    wZmax As DWord
+    wNumButtons As DWord
+    wPeriodMin As DWord
+    wPeriodMax As DWord
+    wRmin As DWord
+    wRmax As DWord
+    wUmin As DWord
+    wUmax As DWord
+    wVmin As DWord
+    wVmax As DWord
+    wCaps As DWord
+    wMaxAxes As DWord
+    wNumAxes As DWord
+    wMaxButtons As DWord
+    szRegKey[ELM(MAXPNAMELEN)] As Char
+    szOEMVxD[ELM(MAX_JOYSTICKOEMVXDNAME)] As Char
+End Type
+TypeDef PJOYCAPSA = *JOYCAPSA
+TypeDef NPJOYCAPSA = *JOYCAPSA
+TypeDef LPJOYCAPSA = *JOYCAPSA
+
+TypeDef JOYCAPS = JOYCAPSA
+TypeDef PJOYCAPS = PJOYCAPSA
+TypeDef NPJOYCAPS = NPJOYCAPSA
+TypeDef LPJOYCAPS = LPJOYCAPSA
+
+Type JOYINFO
+    wXpos As DWord
+    wYpos As DWord
+    wZpos As DWord
+    wButtons As DWord
+End Type
+\TypeDef PJOYINFO = *JOYINFO
+TypeDef NPJOYINFO = *JOYINFO
+TypeDef LPJOYINFO = *JOYINFO
+
+Type JOYINFOEX
+    dwSize As DWord
+    dwFlags As DWord
+    dwXpos As DWord
+    dwYpos As DWord
+    dwZpos As DWord
+    dwRpos As DWord
+    dwUpos As DWord
+    dwVpos As DWord
+    dwButtons As DWord
+    dwButtonNumber As DWord
+    dwPOV As DWord
+    dwReserved1 As DWord
+    dwReserved2 As DWord
+End Type
+TypeDef PJOYINFOEX = *JOYINFOEX
+TypeDef NPJOYINFOEX = *JOYINFOEX
+TypeDef LPJOYINFOEX = *JOYINFOEX
+
+' joystick function prototypes
+Declare Function joyGetNumDevs Lib "winmm" () As DWord
+Declare Function joyGetDevCaps Lib "winmm" Alias "joyGetDevCapsA" (uJoyID As DWord, pjc As *JOYCAPS, cbjc As DWord) As MMRESULT
+Declare Function joyGetPos Lib "winmm" (uJoyID As DWord, pji As *JOYINFO) As MMRESULT
+Declare Function joyGetPosEx Lib "winmm" (uJoyID As DWord, pji As *JOYINFOEX) As MMRESULT
+Declare Function joyGetThreshold Lib "winmm" (uJoyID As DWord, puThreshold As *DWord) As MMRESULT
+Declare Function joyReleaseCapture Lib "winmm" (uJoyID As DWord) As MMRESULT
+Declare Function joySetCapture Lib "winmm" (hwnd As HWND, uJoyID As DWord, uPeriod As DWord, fChanged As BOOL) As MMRESULT
+Declare Function joySetThreshold Lib "winmm" (uJoyID As DWord, uThreshold As DWord) As MMRESULT
+
+
+'--------------------------------------------------------
+' Multimedia File I/O support
+
+' MMIO error return values
+Const MMIOERR_BASE = 256
+Const MMIOERR_FILENOTFOUND = (MMIOERR_BASE + 1)
+Const MMIOERR_OUTOFMEMORY = (MMIOERR_BASE + 2)
+Const MMIOERR_CANNOTOPEN = (MMIOERR_BASE + 3)
+Const MMIOERR_CANNOTCLOSE = (MMIOERR_BASE + 4)
+Const MMIOERR_CANNOTREAD = (MMIOERR_BASE + 5)
+Const MMIOERR_CANNOTWRITE = (MMIOERR_BASE + 6)
+Const MMIOERR_CANNOTSEEK = (MMIOERR_BASE + 7)
+Const MMIOERR_CANNOTEXPAND = (MMIOERR_BASE + 8)
+Const MMIOERR_CHUNKNOTFOUND = (MMIOERR_BASE + 9)
+Const MMIOERR_UNBUFFERED = (MMIOERR_BASE + 10)
+Const MMIOERR_PATHNOTFOUND = (MMIOERR_BASE + 11)
+Const MMIOERR_ACCESSDENIED = (MMIOERR_BASE + 12)
+Const MMIOERR_SHARINGVIOLATION = (MMIOERR_BASE + 13)
+Const MMIOERR_NETWORKERROR = (MMIOERR_BASE + 14)
+Const MMIOERR_TOOMANYOPENFILES = (MMIOERR_BASE + 15)
+Const MMIOERR_INVALIDFILE = (MMIOERR_BASE + 16)
+
+' MMIO constants
+Const CFSEPCHAR = "+"
+
+' MMIO data types
+TypeDef FOURCC = DWord
+TypeDef HPSTR = *Char
+TypeDef HMMIO = VoidPtr
+
+TypeDef LPMMIOPROC = *Function(lpmmioinfo As LPSTR, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
+
+Type MMIOINFO
+    dwFlags As DWord
+    fccIOProc As FOURCC
+    pIOProc As LPMMIOPROC
+    wErrorRet As DWord
+    htask As HTASK
+    cchBuffer As Long
+    pchBuffer As HPSTR
+    pchNext As HPSTR
+    pchEndRead As HPSTR
+    pchEndWrite As HPSTR
+    lBufOffset As Long
+    lDiskOffset As Long
+    adwInfo[ELM(3)] As DWord
+    dwReserved1 As DWord
+    dwReserved2 As DWord
+    hmmio As HMMIO
+End Type
+TypeDef PMMIOINFO = *MMIOINFO
+TypeDef NPMMIOINFO = *MMIOINFO
+TypeDef LPMMIOINFO = *MMIOINFO
+
+Type MMCKINFO
+    ckid As FOURCC
+    cksize As DWord
+    fccType As FOURCC
+    dwDataOffset As DWord
+    dwFlags As DWord
+End Type
+TypeDef PMMCKINFO = *MMCKINFO
+TypeDef NPMMCKINFO = *MMCKINFO
+TypeDef LPMMCKINFO = *MMCKINFO
+
+Const MMIO_RWMODE = &H00000003
+Const MMIO_SHAREMODE = &H00000070
+Const MMIO_CREATE = &H00001000
+Const MMIO_PARSE = &H00000100
+Const MMIO_DELETE = &H00000200
+Const MMIO_EXIST = &H00004000
+Const MMIO_ALLOCBUF = &H00010000
+Const MMIO_GETTEMP = &H00020000
+Const MMIO_DIRTY = &H10000000
+Const MMIO_READ = &H00000000
+Const MMIO_WRITE = &H00000001
+Const MMIO_READWRITE = &H00000002
+Const MMIO_COMPAT = &H00000000
+Const MMIO_EXCLUSIVE = &H00000010
+Const MMIO_DENYWRITE = &H00000020
+Const MMIO_DENYREAD = &H00000030
+Const MMIO_DENYNONE = &H00000040
+Const MMIO_FHOPEN = &H0010
+Const MMIO_EMPTYBUF = &H0010
+Const MMIO_TOUPPER = &H0010
+Const MMIO_INSTALLPROC = &H00010000
+Const MMIO_GLOBALPROC = &H10000000
+Const MMIO_REMOVEPROC = &H00020000
+Const MMIO_UNICODEPROC = &H01000000
+Const MMIO_FINDPROC = &H00040000
+Const MMIO_FINDCHUNK = &H0010
+Const MMIO_FINDRIFF = &H0020
+Const MMIO_FINDLIST = &H0040
+Const MMIO_CREATERIFF = &H0020
+Const MMIO_CREATELIST = &H0040
+
+Const MMIOM_READ = MMIO_READ
+Const MMIOM_WRITE = MMIO_WRITE
+Const MMIOM_SEEK = 2
+Const MMIOM_OPEN = 3
+Const MMIOM_CLOSE = 4
+Const MMIOM_WRITEFLUSH = 5
+Const MMIOM_RENAME = 6
+Const MMIOM_USER = &H8000
+
+Const FOURCC_RIFF = MAKEFOURCC(&H52, &H49, &H46, &H46)
+Const FOURCC_LIST = MAKEFOURCC(&H4C, &H49, &H53, &H54)
+Const FOURCC_DOS = MAKEFOURCC(&H44, &H4F, &H53, &H20)
+Const FOURCC_MEM = MAKEFOURCC(&H4D, &H45, &H4D, &H20)
+
+Const SEEK_SET = 0
+Const SEEK_CUR = 1
+Const SEEK_END = 2
+
+Const MMIO_DEFAULTBUFFER = 8192
+
+Function mmioFOURCC(ch0 As String, ch1 As String, ch2 As String, ch3 As String) As FOURCC
+    mmioFOURCC = MAKEFOURCC(Asc(ch0), Asc(ch1), Asc(ch2), Asc(ch3))
+End Function
+
+' MMIO function prototypes
+Declare Function mmioStringToFOURCC Lib "winmm" Alias "mmioStringToFOURCCA" (sz As LPSTR, uFlags As DWord) As FOURCC
+Declare Function mmioInstallIOProc Lib "winmm" Alias "mmioInstallIOProcA" (fccIOProc As FOURCC, pIOProc As LPMMIOPROC, dwFlags As DWord) As LPMMIOPROC
+Declare Function mmioOpen Lib "winmm" Alias "mmioOpenA" (pszFileName As LPSTR, pmmioinfo As *MMIOINFO, fdwOpen As DWord) As HMMIO
+Declare Function mmioRename Lib "winmm" Alias "mmioRenameA" (pszFileName As LPSTR, pszNewFileName As LPSTR, pmmioinfo As *MMIOINFO, fdwRename As DWord) As MMRESULT
+Declare Function mmioClose Lib "winmm" (hmmio As HMMIO, fuClose As DWord) As MMRESULT
+Declare Function mmioRead Lib "winmm" (hmmio As HMMIO, pch As HPSTR, cch As Long) As Long
+Declare Function mmioWrite Lib "winmm" (hmmio As HMMIO, pch As HPSTR, cch As Long) As Long
+Declare Function mmioSeek Lib "winmm" (hmmio As HMMIO, lOffset As Long, iOrigin As Long) As Long
+Declare Function mmioGetInfo Lib "winmm" (hmmio As HMMIO, pmmioinfo As *MMIOINFO, fuInfo As DWord) As MMRESULT
+Declare Function mmioSetInfo Lib "winmm" (hmmio As HMMIO, pmmioinfo As *MMIOINFO, fuInfo As DWord) As MMRESULT
+Declare Function mmioSetBuffer Lib "winmm" (hmmio As HMMIO, pchBuffer As LPSTR, cchBuffer As Long, fuBuffer As DWord) As MMRESULT
+Declare Function mmioFlush Lib "winmm" (hmmio As HMMIO, fuFlush As DWord) As MMRESULT
+Declare Function mmioAdvance Lib "winmm" (hmmio As HMMIO, pmmioinfo As *MMIOINFO, fuAdvance As DWord) As MMRESULT
+Declare Function mmioSendMessage Lib "winmm" (hmmio As HMMIO, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
+Declare Function mmioDescend Lib "winmm" (hmmio As HMMIO, pmmcki As *MMCKINFO, pmmckiParent As *MMCKINFO, fuDescend As DWord) As MMRESULT
+Declare Function mmioAscend Lib "winmm" (hmmio As HMMIO, pmmcki As *MMCKINFO, fuAscend As DWord) As MMRESULT
+Declare Function mmioCreateChunk Lib "winmm" (hmmio As HMMIO, pmmcki As *MMCKINFO, fuCreate As DWord) As MMRESULT
+
+
+'--------------------------------------------------------
+' MCI support
 
 '--------------------------------------------------------