| 1 | ' api_mmsys.sbp
|
|---|
| 2 | ' Include file for Multimedia API's
|
|---|
| 3 |
|
|---|
| 4 |
|
|---|
| 5 | #ifndef _INC_MMSYS
|
|---|
| 6 | #define _INC_MMSYS
|
|---|
| 7 |
|
|---|
| 8 |
|
|---|
| 9 | ' general constants
|
|---|
| 10 | Const MAXPNAMELEN = 32
|
|---|
| 11 | Const MAXERRORLENGTH = 256
|
|---|
| 12 | Const MAX_JOYSTICKOEMVXDNAME = 260
|
|---|
| 13 |
|
|---|
| 14 | Const MM_MIDI_MAPPER = 1
|
|---|
| 15 | Const MM_WAVE_MAPPER = 2
|
|---|
| 16 | Const MM_SNDBLST_MIDIOUT = 3
|
|---|
| 17 | Const MM_SNDBLST_MIDIIN = 4
|
|---|
| 18 | Const MM_SNDBLST_SYNTH = 5
|
|---|
| 19 | Const MM_SNDBLST_WAVEOUT = 6
|
|---|
| 20 | Const MM_SNDBLST_WAVEIN = 7
|
|---|
| 21 | Const MM_ADLIB = 9
|
|---|
| 22 | Const MM_MPU401_MIDIOUT = 10
|
|---|
| 23 | Const MM_MPU401_MIDIIN = 11
|
|---|
| 24 | Const MM_PC_JOYSTICK = 12
|
|---|
| 25 |
|
|---|
| 26 | ' general data types
|
|---|
| 27 | TypeDef MMVERSION = DWord
|
|---|
| 28 | TypeDef VERSION = DWord
|
|---|
| 29 | TypeDef MMRESULT = DWord
|
|---|
| 30 |
|
|---|
| 31 | ' MMTIME data structure
|
|---|
| 32 |
|
|---|
| 33 | Type Smpte
|
|---|
| 34 | hour As Byte
|
|---|
| 35 | min As Byte
|
|---|
| 36 | sec As Byte
|
|---|
| 37 | frame As Byte
|
|---|
| 38 | fps As Byte
|
|---|
| 39 | dummy As Byte
|
|---|
| 40 | pad[ELM(2)] As Byte
|
|---|
| 41 | End Type
|
|---|
| 42 |
|
|---|
| 43 | Type Midi
|
|---|
| 44 | songptrpos As DWord
|
|---|
| 45 | End Type
|
|---|
| 46 |
|
|---|
| 47 | Type MMTIME
|
|---|
| 48 | Public
|
|---|
| 49 | wType As DWord
|
|---|
| 50 | u As DWord
|
|---|
| 51 | /* union
|
|---|
| 52 | ms As DWord
|
|---|
| 53 | sample As DWord
|
|---|
| 54 | cb As DWord
|
|---|
| 55 | ticks As DWord
|
|---|
| 56 | smpte As Smpte
|
|---|
| 57 | midi As Midi
|
|---|
| 58 | */
|
|---|
| 59 | End Type
|
|---|
| 60 | TypeDef PMMTIME = *MMTIME
|
|---|
| 61 | TypeDef LPMMTIME = *MMTIME
|
|---|
| 62 |
|
|---|
| 63 | Const MAKEFOURCC(ch0, ch1, ch2, ch3) = (((ch0 As Byte) or ((ch1 As Byte)<<8) or ((ch2 As Byte)<<16) or ((ch3 As Byte)<<24)) As DWord)
|
|---|
| 64 |
|
|---|
| 65 | ' types for wType field in MMTIME struct
|
|---|
| 66 | Const TIME_MS = &H0001
|
|---|
| 67 | Const TIME_SAMPLES = &H0002
|
|---|
| 68 | Const TIME_BYTES = &H0004
|
|---|
| 69 | Const TIME_SMPTE = &H0008
|
|---|
| 70 | Const TIME_MIDI = &H0010
|
|---|
| 71 | Const TIME_TICKS = &H0020
|
|---|
| 72 |
|
|---|
| 73 | '----------------------------------------
|
|---|
| 74 | ' Multimedia Extensions Window Messages
|
|---|
| 75 |
|
|---|
| 76 | Const MM_JOY1MOVE = &H3A0 'joystick
|
|---|
| 77 | Const MM_JOY2MOVE = &H3A1
|
|---|
| 78 | Const MM_JOY1ZMOVE = &H3A2
|
|---|
| 79 | Const MM_JOY2ZMOVE = &H3A3
|
|---|
| 80 | Const MM_JOY1BUTTONDOWN = &H3B5
|
|---|
| 81 | Const MM_JOY2BUTTONDOWN = &H3B6
|
|---|
| 82 | Const MM_JOY1BUTTONUP = &H3B7
|
|---|
| 83 | Const MM_JOY2BUTTONUP = &H3B8
|
|---|
| 84 |
|
|---|
| 85 | Const MM_MCINOTIFY = &H3B9 'MCI
|
|---|
| 86 | Const MCI_NOTIFY_SUCCESSFUL = &H0001
|
|---|
| 87 | Const MCI_NOTIFY_SUPERSEDED = &H0002
|
|---|
| 88 | Const MCI_NOTIFY_ABORTED = &H0004
|
|---|
| 89 | Const MCI_NOTIFY_FAILURE = &H0008
|
|---|
| 90 |
|
|---|
| 91 | Const MM_WOM_OPEN = &H3BB 'waveform output
|
|---|
| 92 | Const MM_WOM_CLOSE = &H3BC
|
|---|
| 93 | Const MM_WOM_DONE = &H3BD
|
|---|
| 94 |
|
|---|
| 95 | Const MM_WIM_OPEN = &H3BE 'waveform input
|
|---|
| 96 | Const MM_WIM_CLOSE = &H3BF
|
|---|
| 97 | Const MM_WIM_DATA = &H3C0
|
|---|
| 98 |
|
|---|
| 99 | Const MM_MIM_OPEN = &H3C1 'MIDI input
|
|---|
| 100 | Const MM_MIM_CLOSE = &H3C2
|
|---|
| 101 | Const MM_MIM_DATA = &H3C3
|
|---|
| 102 | Const MM_MIM_LONGDATA = &H3C4
|
|---|
| 103 | Const MM_MIM_ERROR = &H3C5
|
|---|
| 104 | Const MM_MIM_LONGERROR = &H3C6
|
|---|
| 105 |
|
|---|
| 106 | Const MM_MOM_OPEN = &H3C7 'MIDI output
|
|---|
| 107 | Const MM_MOM_CLOSE = &H3C8
|
|---|
| 108 | Const MM_MOM_DONE = &H3C9
|
|---|
| 109 |
|
|---|
| 110 | Const MM_DRVM_OPEN = &H3D0 'installable drivers
|
|---|
| 111 | Const MM_DRVM_CLOSE = &H3D1
|
|---|
| 112 | Const MM_DRVM_DATA = &H3D2
|
|---|
| 113 | Const MM_DRVM_ERROR = &H3D3
|
|---|
| 114 |
|
|---|
| 115 | Const MM_STREAM_OPEN = &H3D4
|
|---|
| 116 | Const MM_STREAM_CLOSE = &H3D5
|
|---|
| 117 | Const MM_STREAM_DONE = &H3D6
|
|---|
| 118 | Const MM_STREAM_ERROR = &H3D7
|
|---|
| 119 |
|
|---|
| 120 | Const MM_MOM_POSITIONCB = &H3CA
|
|---|
| 121 |
|
|---|
| 122 | Const MM_MCISIGNAL = &H3CB
|
|---|
| 123 |
|
|---|
| 124 | Const MM_MIM_MOREDATA = &H3CC 'MIM_DONE w/ pending events
|
|---|
| 125 |
|
|---|
| 126 | Const MM_MIXM_LINE_CHANGE = &H3D0 'mixer line change notify
|
|---|
| 127 | Const MM_MIXM_CONTROL_CHANGE =&H3D1 'mixer control change notify
|
|---|
| 128 |
|
|---|
| 129 |
|
|---|
| 130 | '----------------------------------------------
|
|---|
| 131 | ' String resource number bases (internal use)
|
|---|
| 132 |
|
|---|
| 133 | Const MMSYSERR_BASE = 0
|
|---|
| 134 | Const WAVERR_BASE = 32
|
|---|
| 135 | Const MIDIERR_BASE = 64
|
|---|
| 136 | Const TIMERR_BASE = 96
|
|---|
| 137 | Const JOYERR_BASE = 160
|
|---|
| 138 | Const MCIERR_BASE = 256
|
|---|
| 139 | Const MIXERR_BASE = 1024
|
|---|
| 140 |
|
|---|
| 141 | Const MCI_STRING_OFFSET = 512
|
|---|
| 142 | Const MCI_VD_OFFSET = 1024
|
|---|
| 143 | Const MCI_CD_OFFSET = 1088
|
|---|
| 144 | Const MCI_WAVE_OFFSET = 1152
|
|---|
| 145 | Const MCI_SEQ_OFFSET = 1216
|
|---|
| 146 |
|
|---|
| 147 |
|
|---|
| 148 | '----------------------------------------------
|
|---|
| 149 | ' General error return values
|
|---|
| 150 |
|
|---|
| 151 | Const MMSYSERR_NOERROR = 0 'no error
|
|---|
| 152 | Const MMSYSERR_ERROR = (MMSYSERR_BASE + 1) 'unspecified error
|
|---|
| 153 | Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2) 'device ID out of range
|
|---|
| 154 | Const MMSYSERR_NOTENABLED = (MMSYSERR_BASE + 3) 'driver failed enable
|
|---|
| 155 | Const MMSYSERR_ALLOCATED = (MMSYSERR_BASE + 4) 'device already allocated
|
|---|
| 156 | Const MMSYSERR_INVALHANDLE = (MMSYSERR_BASE + 5) 'device handle is invalid
|
|---|
| 157 | Const MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6) 'no device driver present
|
|---|
| 158 | Const MMSYSERR_NOMEM = (MMSYSERR_BASE + 7) 'memory allocation error
|
|---|
| 159 | Const MMSYSERR_NOTSUPPORTED= (MMSYSERR_BASE + 8) 'function isn't supported
|
|---|
| 160 | Const MMSYSERR_BADERRNUM = (MMSYSERR_BASE + 9) 'error value out of range
|
|---|
| 161 | Const MMSYSERR_INVALFLAG = (MMSYSERR_BASE + 10) 'invalid flag passed
|
|---|
| 162 | Const MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11) 'invalid parameter passed
|
|---|
| 163 | Const MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE + 12) 'handle being used
|
|---|
| 164 | Const MMSYSERR_INVALIDALIAS= (MMSYSERR_BASE + 13) 'specified alias not found
|
|---|
| 165 | Const MMSYSERR_BADDB = (MMSYSERR_BASE + 14) 'bad registry database
|
|---|
| 166 | Const MMSYSERR_KEYNOTFOUND = (MMSYSERR_BASE + 15) 'registry key not found
|
|---|
| 167 | Const MMSYSERR_READERROR = (MMSYSERR_BASE + 16) 'registry read error
|
|---|
| 168 | Const MMSYSERR_WRITEERROR = (MMSYSERR_BASE + 17) 'registry write error
|
|---|
| 169 | Const MMSYSERR_DELETEERROR = (MMSYSERR_BASE + 18) 'registry delete error
|
|---|
| 170 | Const MMSYSERR_VALNOTFOUND = (MMSYSERR_BASE + 19) 'registry value not found
|
|---|
| 171 | Const MMSYSERR_NODRIVERCB = (MMSYSERR_BASE + 20) 'driver does not call DriverCallback
|
|---|
| 172 | Const MMSYSERR_LASTERROR = (MMSYSERR_BASE + 20) 'last error in range
|
|---|
| 173 |
|
|---|
| 174 |
|
|---|
| 175 | '--------------------------------------------------------
|
|---|
| 176 | ' Installable driver support
|
|---|
| 177 |
|
|---|
| 178 | Type _System_DeclareHandle_HDRVR:unused As DWord:End Type
|
|---|
| 179 | TypeDef HDRVR = *_System_DeclareHandle_HDRVR
|
|---|
| 180 |
|
|---|
| 181 | Type DRVCONFIGINFOEX
|
|---|
| 182 | dwDCISize As DWord
|
|---|
| 183 | lpszDCISectionName As LPCWSTR
|
|---|
| 184 | lpszDCIAliasName As LPCWSTR
|
|---|
| 185 | dnDevNode As DWORD
|
|---|
| 186 | End Type
|
|---|
| 187 | TypeDef PDRVCONFIGINFOEX = *DRVCONFIGINFOEX
|
|---|
| 188 | TypeDef LPDRVCONFIGINFOEX = *DRVCONFIGINFOEX
|
|---|
| 189 |
|
|---|
| 190 | ' Driver messages
|
|---|
| 191 | Const DRV_LOAD = &H0001
|
|---|
| 192 | Const DRV_ENABLE = &H0002
|
|---|
| 193 | Const DRV_OPEN = &H0003
|
|---|
| 194 | Const DRV_CLOSE = &H0004
|
|---|
| 195 | Const DRV_DISABLE = &H0005
|
|---|
| 196 | Const DRV_FREE = &H0006
|
|---|
| 197 | Const DRV_CONFIGURE = &H0007
|
|---|
| 198 | Const DRV_QUERYCONFIGURE = &H0008
|
|---|
| 199 | Const DRV_INSTALL = &H0009
|
|---|
| 200 | Const DRV_REMOVE = &H000A
|
|---|
| 201 | Const DRV_EXITSESSION = &H000B
|
|---|
| 202 | Const DRV_POWER = &H000F
|
|---|
| 203 | Const DRV_RESERVED = &H0800
|
|---|
| 204 | Const DRV_USER = &H4000
|
|---|
| 205 |
|
|---|
| 206 | Type DRVCONFIGINFO
|
|---|
| 207 | dwDCISize As DWord
|
|---|
| 208 | lpszDCISectionName As LPCWSTR
|
|---|
| 209 | lpszDCIAliasName As LPCWSTR
|
|---|
| 210 | End Type
|
|---|
| 211 | TypeDef PDRVCONFIGINFO = *DRVCONFIGINFO
|
|---|
| 212 | TypeDef LPDRVCONFIGINFO = *DRVCONFIGINFO
|
|---|
| 213 |
|
|---|
| 214 | ' Supported return values for DRV_CONFIGURE message
|
|---|
| 215 | Const DRVCNF_CANCEL = &H0000
|
|---|
| 216 | Const DRVCNF_OK = &H0001
|
|---|
| 217 | Const DRVCNF_RESTART = &H0002
|
|---|
| 218 |
|
|---|
| 219 | TypeDef DRIVERPROC = *Function(dwDriverId As DWord, hdrvr As HDRVR, msg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
|
|---|
| 220 |
|
|---|
| 221 | Declare Function CloseDriver Lib "winmm" (hDriver As HDRVR, lParam1 As Long, lParam2 As Long) As LRESULT
|
|---|
| 222 | Declare Function OpenDriver Lib "winmm" (szDriverName As LPCWSTR, szSectionName As LPCWSTR, lParam2 As Long) As HDRVR
|
|---|
| 223 | Declare Function SendDriverMessage Lib "winmm" (hDriver As HDRVR, message As DWord, lParam1 As Long, lParam2 As Long) As LRESULT
|
|---|
| 224 | Declare Function GetDriverModuleHandle Lib "winmm" (hDriver As HDRVR) As HMODULE
|
|---|
| 225 | Declare Function DefDriverProc Lib "winmm" (dwDriverIdentifier As DWord, hdrvr As HDRVR, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
|
|---|
| 226 |
|
|---|
| 227 | Declare Function DrvClose Lib "winmm" Alias "CloseDriver" (hDriver As HDRVR, lParam1 As Long, lParam2 As Long) As LRESULT
|
|---|
| 228 | Declare Function DrvOpen Lib "winmm" Alias "OpenDriver" (szDriverName As LPCWSTR, szSectionName As LPCWSTR, lParam2 As Long) As HDRVR
|
|---|
| 229 | Declare Function DrvSendMessage Lib "winmm" Alias "SendDriverMessage" (hDriver As HDRVR, message As DWord, lParam1 As Long, lParam2 As Long) As LRESULT
|
|---|
| 230 | Declare Function DrvGetModuleHandle Lib "winmm" Alias "GetDriverModuleHandle" (hDriver As HDRVR) As HMODULE
|
|---|
| 231 | Declare Function DrvDefDriverProc Lib "winmm" Alias "DefDriverProc" (dwDriverIdentifier As DWord, hdrvr As HDRVR, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
|
|---|
| 232 |
|
|---|
| 233 | ' return values from DriverProc() function
|
|---|
| 234 | Const DRV_CANCEL = DRVCNF_CANCEL
|
|---|
| 235 | Const DRV_OK = DRVCNF_OK
|
|---|
| 236 | Const DRV_RESTART = DRVCNF_RESTART
|
|---|
| 237 |
|
|---|
| 238 | Const DRV_MCI_FIRST = DRV_RESERVED
|
|---|
| 239 | Const DRV_MCI_LAST = (DRV_RESERVED + &HFFF)
|
|---|
| 240 |
|
|---|
| 241 |
|
|---|
| 242 | '--------------------------------------------------------
|
|---|
| 243 | ' Driver callback support
|
|---|
| 244 | Const CALLBACK_TYPEMASK = &H00070000 'callback type mask
|
|---|
| 245 | Const CALLBACK_NULL = &H00000000 'no callback
|
|---|
| 246 | Const CALLBACK_WINDOW = &H00010000 'dwCallback is a HWND
|
|---|
| 247 | Const CALLBACK_TASK = &H00020000 'dwCallback is a HTASK
|
|---|
| 248 | Const CALLBACK_FUNCTION = &H00030000 'dwCallback is a FARPROC
|
|---|
| 249 | Const CALLBACK_THREAD = (CALLBACK_TASK)'thread ID replaces 16 bit task
|
|---|
| 250 | Const CALLBACK_EVENT = &H00050000 'dwCallback is an EVENT Handle
|
|---|
| 251 |
|
|---|
| 252 | TypeDef DRVCALLBACK = *Sub(hdrvr As HDRVR, uMsg As DWord, dwUser As DWord, dw1 As DWord, dw2 As DWord)
|
|---|
| 253 | TypeDef PDRVCALLBACK = *DRVCALLBACK
|
|---|
| 254 | TypeDef LPDRVCALLBACK = *DRVCALLBACK
|
|---|
| 255 |
|
|---|
| 256 |
|
|---|
| 257 | '--------------------------------------------------------
|
|---|
| 258 | ' General MMSYSTEM support
|
|---|
| 259 |
|
|---|
| 260 | Declare Function mmsystemGetVersion Lib "winmm" () As DWord
|
|---|
| 261 |
|
|---|
| 262 |
|
|---|
| 263 |
|
|---|
| 264 | '--------------------------------------------------------
|
|---|
| 265 | ' Sound support
|
|---|
| 266 |
|
|---|
| 267 | Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (pszSound As PCSTR, fuSound As DWord) As BOOL
|
|---|
| 268 |
|
|---|
| 269 | Const SND_SYNC = &H0000
|
|---|
| 270 | Const SND_ASYNC = &H0001
|
|---|
| 271 | Const SND_NODEFAULT = &H0002
|
|---|
| 272 | Const SND_MEMORY = &H0004
|
|---|
| 273 | Const SND_LOOP = &H0008
|
|---|
| 274 | Const SND_NOSTOP = &H0010
|
|---|
| 275 | Const SND_NOWAIT = &H00002000
|
|---|
| 276 | Const SND_ALIAS = &H00010000
|
|---|
| 277 | Const SND_ALIAS_ID = &H00110000
|
|---|
| 278 | Const SND_FILENAME = &H00020000
|
|---|
| 279 | Const SND_RESOURCE = &H00040004
|
|---|
| 280 | Const SND_PURGE = &H0040
|
|---|
| 281 | Const SND_APPLICATION = &H0080
|
|---|
| 282 | Const SND_ALIAS_START = 0
|
|---|
| 283 |
|
|---|
| 284 | Const sndAlias(ch0, ch1) = (SND_ALIAS_START + ((&HFF AND ch0) OR (&HFF AND ch1)<<8))
|
|---|
| 285 |
|
|---|
| 286 | Const SND_ALIAS_SYSTEMASTERISK = sndAlias(&H53, &H2A)
|
|---|
| 287 | Const SND_ALIAS_SYSTEMQUESTION = sndAlias(&H53, &H3F)
|
|---|
| 288 | Const SND_ALIAS_SYSTEMHAND = sndAlias(&H53, &H48)
|
|---|
| 289 | Const SND_ALIAS_SYSTEMEXIT = sndAlias(&H53, &H45)
|
|---|
| 290 | Const SND_ALIAS_SYSTEMSTART = sndAlias(&H53, &H53)
|
|---|
| 291 | Const SND_ALIAS_SYSTEMWELCOME = sndAlias(&H53, &H57)
|
|---|
| 292 | Const SND_ALIAS_SYSTEMEXCLAMATION = sndAlias(&H53, &H21)
|
|---|
| 293 | Const SND_ALIAS_SYSTEMDEFAULT = sndAlias(&H53, &H44)
|
|---|
| 294 |
|
|---|
| 295 | Declare Function PlaySound Lib "winmm" Alias "PlaySoundA" (pszSound As PCSTR, hmod As HMODULE, fdwSound As DWord) As BOOL
|
|---|
| 296 |
|
|---|
| 297 |
|
|---|
| 298 | '--------------------------------------------------------
|
|---|
| 299 | ' Waveform audio support
|
|---|
| 300 |
|
|---|
| 301 | ' waveform audio error return values
|
|---|
| 302 | Const WAVERR_BADFORMAT = (WAVERR_BASE + 0)
|
|---|
| 303 | Const WAVERR_STILLPLAYING = (WAVERR_BASE + 1)
|
|---|
| 304 | Const WAVERR_UNPREPARED = (WAVERR_BASE + 2)
|
|---|
| 305 | Const WAVERR_SYNC = (WAVERR_BASE + 3)
|
|---|
| 306 | Const WAVERR_LASTERROR = (WAVERR_BASE + 3)
|
|---|
| 307 |
|
|---|
| 308 | ' waveform audio data types
|
|---|
| 309 | Type _System_DeclareHandle_HWAVE:unused As DWord:End Type
|
|---|
| 310 | TypeDef HWAVE = *_System_DeclareHandle_HWAVE
|
|---|
| 311 | Type _System_DeclareHandle_HWAVEIN:unused As DWord:End Type
|
|---|
| 312 | TypeDef HWAVEIN = *_System_DeclareHandle_HWAVEIN
|
|---|
| 313 | Type _System_DeclareHandle_HWAVEOUT:unused As DWord:End Type
|
|---|
| 314 | TypeDef HWAVEOUT = *_System_DeclareHandle_HWAVEOUT
|
|---|
| 315 |
|
|---|
| 316 | TypeDef WAVECALLBACK = DRVCALLBACK
|
|---|
| 317 | TypeDef LPWAVECALLBACK = *WAVECALLBACK
|
|---|
| 318 |
|
|---|
| 319 | ' wave callback messages
|
|---|
| 320 | Const WOM_OPEN = MM_WOM_OPEN
|
|---|
| 321 | Const WOM_CLOSE = MM_WOM_CLOSE
|
|---|
| 322 | Const WOM_DONE = MM_WOM_DONE
|
|---|
| 323 | Const WIM_OPEN = MM_WIM_OPEN
|
|---|
| 324 | Const WIM_CLOSE = MM_WIM_CLOSE
|
|---|
| 325 | Const WIM_DATA = MM_WIM_DATA
|
|---|
| 326 |
|
|---|
| 327 | ' device ID for wave device mapper
|
|---|
| 328 | Const WAVE_MAPPER = (-1)
|
|---|
| 329 |
|
|---|
| 330 | ' flags for dwFlags parameter in waveOutOpen() and waveInOpen()
|
|---|
| 331 | Const WAVE_FORMAT_QUERY = &H0001
|
|---|
| 332 | Const WAVE_ALLOWSYNC = &H0002
|
|---|
| 333 | Const WAVE_MAPPED = &H0004
|
|---|
| 334 | Const WAVE_FORMAT_DIRECT = &H0008
|
|---|
| 335 | Const WAVE_FORMAT_DIRECT_QUERY = (WAVE_FORMAT_QUERY OR WAVE_FORMAT_DIRECT)
|
|---|
| 336 |
|
|---|
| 337 | ' wave data block header
|
|---|
| 338 | Type WAVEHDR
|
|---|
| 339 | lpData As LPSTR
|
|---|
| 340 | dwBufferLength As DWord
|
|---|
| 341 | dwBytesRecorded As DWord
|
|---|
| 342 | dwUser As DWord
|
|---|
| 343 | dwFlags As DWord
|
|---|
| 344 | dwLoops As DWord
|
|---|
| 345 | lpNext As *WAVEHDR
|
|---|
| 346 | reserved As DWord
|
|---|
| 347 | End Type
|
|---|
| 348 | TypeDef PWAVEHDR = *WAVEHDR
|
|---|
| 349 | TypeDef LPWAVEHDR = *WAVEHDR
|
|---|
| 350 |
|
|---|
| 351 | ' flags for dwFlags field of WAVEHDR
|
|---|
| 352 | Const WHDR_DONE = &H00000001
|
|---|
| 353 | Const WHDR_PREPARED = &H00000002
|
|---|
| 354 | Const WHDR_BEGINLOOP = &H00000004
|
|---|
| 355 | Const WHDR_ENDLOOP = &H00000008
|
|---|
| 356 | Const WHDR_INQUEUE = &H00000010
|
|---|
| 357 |
|
|---|
| 358 | ' waveform output device capabilities structure
|
|---|
| 359 | Type WAVEOUTCAPSA
|
|---|
| 360 | wMid As Word
|
|---|
| 361 | wPid As Word
|
|---|
| 362 | vDriverVersion As MMVERSION
|
|---|
| 363 | szPname[ELM(MAXPNAMELEN)] As Char
|
|---|
| 364 | dwFormats As DWord
|
|---|
| 365 | wChannels As Word
|
|---|
| 366 | wReserved1 As Word
|
|---|
| 367 | dwSupport As DWord
|
|---|
| 368 | End Type
|
|---|
| 369 | TypeDef PWAVEOUTCAPSA = *WAVEOUTCAPSA
|
|---|
| 370 | TypeDef LPWAVEOUTCAPSA = *WAVEOUTCAPSA
|
|---|
| 371 |
|
|---|
| 372 | TypeDef WAVEOUTCAPS = WAVEOUTCAPSA
|
|---|
| 373 | TypeDef PWAVEOUTCAPS = PWAVEOUTCAPSA
|
|---|
| 374 | TypeDef LPWAVEOUTCAPS = LPWAVEOUTCAPSA
|
|---|
| 375 |
|
|---|
| 376 | ' flags for dwSupport field of WAVEOUTCAPS
|
|---|
| 377 | Const WAVECAPS_PITCH = &H0001
|
|---|
| 378 | Const WAVECAPS_PLAYBACKRATE = &H0002
|
|---|
| 379 | Const WAVECAPS_VOLUME = &H0004
|
|---|
| 380 | Const WAVECAPS_LRVOLUME = &H0008
|
|---|
| 381 | Const WAVECAPS_SYNC = &H0010
|
|---|
| 382 | Const WAVECAPS_SAMPLEACCURATE = &H0020
|
|---|
| 383 | Const WAVECAPS_DIRECTSOUND = &H0040
|
|---|
| 384 |
|
|---|
| 385 | ' waveform input device capabilities structure
|
|---|
| 386 | Type WAVEINCAPSA
|
|---|
| 387 | wMid As Word
|
|---|
| 388 | wPid As Word
|
|---|
| 389 | vDriverVersion As MMVERSION
|
|---|
| 390 | szPname[ELM(MAXPNAMELEN)] As Char
|
|---|
| 391 | dwFormats As DWord
|
|---|
| 392 | wChannels As Word
|
|---|
| 393 | wReserved1 As Word
|
|---|
| 394 | End Type
|
|---|
| 395 | TypeDef PWAVEINCAPSA = *WAVEINCAPSA
|
|---|
| 396 | TypeDef LPWAVEINCAPSA = *WAVEINCAPSA
|
|---|
| 397 |
|
|---|
| 398 | TypeDef WAVEINCAPS = WAVEINCAPSA
|
|---|
| 399 | TypeDef PWAVEINCAPS = PWAVEINCAPSA
|
|---|
| 400 | TypeDef LPWAVEINCAPS = LPWAVEINCAPSA
|
|---|
| 401 |
|
|---|
| 402 | ' defines for dwFormat field of WAVEINCAPS and WAVEOUTCAPS
|
|---|
| 403 | Const WAVE_INVALIDFORMAT = &H00000000 ' invalid format
|
|---|
| 404 | Const WAVE_FORMAT_1M08 = &H00000001 ' 11.025 kHz, Mono, 8-bit
|
|---|
| 405 | Const WAVE_FORMAT_1S08 = &H00000002 ' 11.025 kHz, Stereo, 8-bit
|
|---|
| 406 | Const WAVE_FORMAT_1M16 = &H00000004 ' 11.025 kHz, Mono, 16-bit
|
|---|
| 407 | Const WAVE_FORMAT_1S16 = &H00000008 ' 11.025 kHz, Stereo, 16-bit
|
|---|
| 408 | Const WAVE_FORMAT_2M08 = &H00000010 ' 22.05 kHz, Mono, 8-bit
|
|---|
| 409 | Const WAVE_FORMAT_2S08 = &H00000020 ' 22.05 kHz, Stereo, 8-bit
|
|---|
| 410 | Const WAVE_FORMAT_2M16 = &H00000040 ' 22.05 kHz, Mono, 16-bit
|
|---|
| 411 | Const WAVE_FORMAT_2S16 = &H00000080 ' 22.05 kHz, Stereo, 16-bit
|
|---|
| 412 | Const WAVE_FORMAT_4M08 = &H00000100 ' 44.1 kHz, Mono, 8-bit
|
|---|
| 413 | Const WAVE_FORMAT_4S08 = &H00000200 ' 44.1 kHz, Stereo, 8-bit
|
|---|
| 414 | Const WAVE_FORMAT_4M16 = &H00000400 ' 44.1 kHz, Mono, 16-bit
|
|---|
| 415 | Const WAVE_FORMAT_4S16 = &H00000800 ' 44.1 kHz, Stereo, 16-bit
|
|---|
| 416 |
|
|---|
| 417 | ' OLD general waveform format structure (information common to all formats)
|
|---|
| 418 | Type WAVEFORMAT
|
|---|
| 419 | wFormatTag As Word
|
|---|
| 420 | nChannels As Word
|
|---|
| 421 | nSamplesPerSec As DWord
|
|---|
| 422 | nAvgBytesPerSec As DWord
|
|---|
| 423 | nBlockAlign As Word
|
|---|
| 424 | End Type
|
|---|
| 425 | TypeDef PWAVEFORMAT = *WAVEFORMAT
|
|---|
| 426 | TypeDef LPWAVEFORMAT = *WAVEFORMAT
|
|---|
| 427 |
|
|---|
| 428 | ' flags for wFormatTag field of WAVEFORMAT
|
|---|
| 429 | Const WAVE_FORMAT_PCM = 1
|
|---|
| 430 |
|
|---|
| 431 | ' specific waveform format structure for PCM data
|
|---|
| 432 | Type PCMWAVEFORMAT
|
|---|
| 433 | wf As WAVEFORMAT
|
|---|
| 434 | wBitsPerSample As Word
|
|---|
| 435 | End Type
|
|---|
| 436 | TypeDef PPCMWAVEFORMAT = *PCMWAVEFORMAT
|
|---|
| 437 | TypeDef LPPCMWAVEFORMAT = *PCMWAVEFORMAT
|
|---|
| 438 |
|
|---|
| 439 | Type WAVEFORMATEX
|
|---|
| 440 | wFormatTag As Word
|
|---|
| 441 | nChannels As Word
|
|---|
| 442 | nSamplesPerSec As DWord
|
|---|
| 443 | nAvgBytesPerSec As DWord
|
|---|
| 444 | nBlockAlign As Word
|
|---|
| 445 | wBitsPerSample As Word
|
|---|
| 446 | cbSize As Word
|
|---|
| 447 | End Type
|
|---|
| 448 | TypeDef PWAVEFORMATEX = *WAVEFORMATEX
|
|---|
| 449 | TypeDef LPWAVEFORMATEX = *WAVEFORMATEX
|
|---|
| 450 | TypeDef LPCWAVEFORMATEX = *WAVEFORMATEX
|
|---|
| 451 |
|
|---|
| 452 | ' waveform audio function prototypes
|
|---|
| 453 | Declare Function waveOutGetNumDevs Lib "winmm" () As DWord
|
|---|
| 454 | Declare Function waveOutGetDevCaps Lib "winmm" Alias "waveOutGetDevCapsA" (uDeviceID As DWord, ByRef pwoc As WAVEOUTCAPS, cbwoc As DWord) As MMRESULT
|
|---|
| 455 | Declare Function waveOutGetVolume Lib "winmm" (hwo As HWAVEOUT, ByRef pdwVolume As DWord) As MMRESULT
|
|---|
| 456 | Declare Function waveOutSetVolume Lib "winmm" (hwo As HWAVEOUT, dwVolume As DWord) As MMRESULT
|
|---|
| 457 | Declare Function waveOutGetErrorText Lib "winmm" Alias "waveOutGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
|
|---|
| 458 | Declare Function waveOutOpen Lib "winmm" (ByRef phwo As HWAVEOUT, uDeviceID As DWord, ByRef pwfx As WAVEFORMATEX, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
|
|---|
| 459 | Declare Function waveOutClose Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
|
|---|
| 460 | Declare Function waveOutPrepareHeader Lib "winmm" (hwo As HWAVEOUT, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
|
|---|
| 461 | Declare Function waveOutUnprepareHeader Lib "winmm" (hwo As HWAVEOUT, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
|
|---|
| 462 | Declare Function waveOutWrite Lib "winmm" (hwo As HWAVEOUT, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
|
|---|
| 463 | Declare Function waveOutPause Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
|
|---|
| 464 | Declare Function waveOutRestart Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
|
|---|
| 465 | Declare Function waveOutReset Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
|
|---|
| 466 | Declare Function waveOutBreakLoop Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
|
|---|
| 467 | Declare Function waveOutGetPosition Lib "winmm" (hwo As HWAVEOUT, ByRef pmmt As MMTIME, cbmmt As DWord) As MMRESULT
|
|---|
| 468 | Declare Function waveOutGetPitch Lib "winmm" (hwo As HWAVEOUT, ByRef pdwPitch As DWord) As MMRESULT
|
|---|
| 469 | Declare Function waveOutSetPitch Lib "winmm" (hwo As HWAVEOUT, dwPitch As DWord) As MMRESULT
|
|---|
| 470 | Declare Function waveOutGetPlaybackRate Lib "winmm" (hwo As HWAVEOUT, ByRef pdwRate As DWord) As MMRESULT
|
|---|
| 471 | Declare Function waveOutSetPlaybackRate Lib "winmm" (hwo As HWAVEOUT, dwRate As DWord) As MMRESULT
|
|---|
| 472 | Declare Function waveOutGetID Lib "winmm" (hwo As HWAVEOUT, ByRef puDeviceID As DWord) As MMRESULT
|
|---|
| 473 | Declare Function waveOutMessage Lib "winmm" (hwo As HWAVEOUT, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
|
|---|
| 474 |
|
|---|
| 475 | Declare Function waveInGetNumDevs Lib "winmm" () As DWord
|
|---|
| 476 | Declare Function waveInGetDevCaps Lib "winmm" Alias "waveInGetDevCapsA" (uDeviceID As DWord, ByRef pwic As WAVEINCAPS, cbwic As DWord) As MMRESULT
|
|---|
| 477 | Declare Function waveInGetErrorText Lib "winmm" Alias "waveInGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
|
|---|
| 478 | Declare Function waveInOpen Lib "winmm" (ByRef phwi As HWAVEIN, uDeviceID As DWord, ByRef pwfx As WAVEFORMATEX, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
|
|---|
| 479 | Declare Function waveInClose Lib "winmm" (hwi As HWAVEIN) As MMRESULT
|
|---|
| 480 | Declare Function waveInPrepareHeader Lib "winmm" (hwi As HWAVEIN, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
|
|---|
| 481 | Declare Function waveInUnprepareHeader Lib "winmm" (hwi As HWAVEIN, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
|
|---|
| 482 | Declare Function waveInAddBuffer Lib "winmm" (hwi As HWAVEIN, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
|
|---|
| 483 | Declare Function waveInStart Lib "winmm" (hwi As HWAVEIN) As MMRESULT
|
|---|
| 484 | Declare Function waveInStop Lib "winmm" (hwi As HWAVEIN) As MMRESULT
|
|---|
| 485 | Declare Function waveInReset Lib "winmm" (hwi As HWAVEIN) As MMRESULT
|
|---|
| 486 | Declare Function waveInGetPosition Lib "winmm" (hwi As HWAVEIN, ByRef pmmt As MMTIME, cbmmt As DWord) As MMRESULT
|
|---|
| 487 | Declare Function waveInGetID Lib "winmm" (hwi As HWAVEIN, ByRef puDeviceID As DWord) As MMRESULT
|
|---|
| 488 | Declare Function waveInMessage Lib "winmm" (hwi As HWAVEIN, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
|
|---|
| 489 |
|
|---|
| 490 |
|
|---|
| 491 |
|
|---|
| 492 | '--------------------------------------------------------
|
|---|
| 493 | ' MIDI audio support
|
|---|
| 494 |
|
|---|
| 495 | ' MIDI error return values
|
|---|
| 496 | Const MIDIERR_UNPREPARED = (MIDIERR_BASE + 0)
|
|---|
| 497 | Const MIDIERR_STILLPLAYING = (MIDIERR_BASE + 1)
|
|---|
| 498 | Const MIDIERR_NOMAP = (MIDIERR_BASE + 2)
|
|---|
| 499 | Const MIDIERR_NOTREADY = (MIDIERR_BASE + 3)
|
|---|
| 500 | Const MIDIERR_NODEVICE = (MIDIERR_BASE + 4)
|
|---|
| 501 | Const MIDIERR_INVALIDSETUP = (MIDIERR_BASE + 5)
|
|---|
| 502 | Const MIDIERR_BADOPENMODE = (MIDIERR_BASE + 6)
|
|---|
| 503 | Const MIDIERR_DONT_CONTINUE = (MIDIERR_BASE + 7)
|
|---|
| 504 | Const MIDIERR_LASTERROR = (MIDIERR_BASE + 7)
|
|---|
| 505 |
|
|---|
| 506 | ' MIDI audio data types
|
|---|
| 507 | Type _System_DeclareHandle_HMIDI:unused As DWord:End Type
|
|---|
| 508 | TypeDef HMIDI = *_System_DeclareHandle_HMIDI
|
|---|
| 509 | Type _System_DeclareHandle_HMIDIIN:unused As DWord:End Type
|
|---|
| 510 | TypeDef HMIDIIN = *_System_DeclareHandle_HMIDIIN
|
|---|
| 511 | Type _System_DeclareHandle_HMIDIOUT:unused As DWord:End Type
|
|---|
| 512 | TypeDef HMIDIOUT = *_System_DeclareHandle_HMIDIOUT
|
|---|
| 513 | Type _System_DeclareHandle_HMIDISTRM:unused As DWord:End Type
|
|---|
| 514 | TypeDef HMIDISTRM = *_System_DeclareHandle_HMIDISTRM
|
|---|
| 515 |
|
|---|
| 516 | TypeDef MIDICALLBACK = DRVCALLBACK
|
|---|
| 517 | TypeDef LPMIDICALLBACK = *MIDICALLBACK
|
|---|
| 518 |
|
|---|
| 519 | Const MIDIPATCHSIZE = 128
|
|---|
| 520 |
|
|---|
| 521 | TypeDef LPPATCHARRAY = *Word
|
|---|
| 522 | TypeDef LPKEYARRAY = *Word
|
|---|
| 523 |
|
|---|
| 524 | ' MIDI callback messages
|
|---|
| 525 | Const MIM_OPEN = MM_MIM_OPEN
|
|---|
| 526 | Const MIM_CLOSE = MM_MIM_CLOSE
|
|---|
| 527 | Const MIM_DATA = MM_MIM_DATA
|
|---|
| 528 | Const MIM_LONGDATA = MM_MIM_LONGDATA
|
|---|
| 529 | Const MIM_ERROR = MM_MIM_ERROR
|
|---|
| 530 | Const MIM_LONGERROR = MM_MIM_LONGERROR
|
|---|
| 531 | Const MOM_OPEN = MM_MOM_OPEN
|
|---|
| 532 | Const MOM_CLOSE = MM_MOM_CLOSE
|
|---|
| 533 | Const MOM_DONE = MM_MOM_DONE
|
|---|
| 534 | Const MIM_MOREDATA = MM_MIM_MOREDATA
|
|---|
| 535 | Const MOM_POSITIONCB = MM_MOM_POSITIONCB
|
|---|
| 536 |
|
|---|
| 537 | ' device ID for MIDI mapper
|
|---|
| 538 | Const MIDIMAPPER = (-1)
|
|---|
| 539 | Const MIDI_MAPPER = (-1)
|
|---|
| 540 |
|
|---|
| 541 | Const MIDI_IO_STATUS = &H00000020
|
|---|
| 542 |
|
|---|
| 543 | ' flags for wFlags parm of midiOutCachePatches(), midiOutCacheDrumPatches()
|
|---|
| 544 | Const MIDI_CACHE_ALL = 1
|
|---|
| 545 | Const MIDI_CACHE_BESTFIT = 2
|
|---|
| 546 | Const MIDI_CACHE_QUERY = 3
|
|---|
| 547 | Const MIDI_UNCACHE = 4
|
|---|
| 548 |
|
|---|
| 549 | ' MIDI output device capabilities structure
|
|---|
| 550 | Type MIDIOUTCAPSA
|
|---|
| 551 | wMid As Word
|
|---|
| 552 | wPid As Word
|
|---|
| 553 | vDriverVersion As MMVERSION
|
|---|
| 554 | szPname[ELM(MAXPNAMELEN)] As Char
|
|---|
| 555 | wTechnology As Word
|
|---|
| 556 | wVoices As Word
|
|---|
| 557 | wNotes As Word
|
|---|
| 558 | wChannelMask As Word
|
|---|
| 559 | dwSupport As DWord
|
|---|
| 560 | End Type
|
|---|
| 561 | TypeDef PMIDIOUTCAPSA = *MIDIOUTCAPSA
|
|---|
| 562 | TypeDef LPMIDIOUTCAPSA = *MIDIOUTCAPSA
|
|---|
| 563 |
|
|---|
| 564 | TypeDef MIDIOUTCAPS = MIDIOUTCAPSA
|
|---|
| 565 | TypeDef PMIDIOUTCAPS = PMIDIOUTCAPSA
|
|---|
| 566 | TypeDef LPMIDIOUTCAPS = LPMIDIOUTCAPSA
|
|---|
| 567 |
|
|---|
| 568 | ' flags for wTechnology field of MIDIOUTCAPS structure
|
|---|
| 569 | Const MOD_MIDIPORT = 1
|
|---|
| 570 | Const MOD_SYNTH = 2
|
|---|
| 571 | Const MOD_SQSYNTH = 3
|
|---|
| 572 | Const MOD_FMSYNTH = 4
|
|---|
| 573 | Const MOD_MAPPER = 5
|
|---|
| 574 |
|
|---|
| 575 | ' flags for dwSupport field of MIDIOUTCAPS structure
|
|---|
| 576 | Const MIDICAPS_VOLUME = &H0001
|
|---|
| 577 | Const MIDICAPS_LRVOLUME = &H0002
|
|---|
| 578 | Const MIDICAPS_CACHE = &H0004
|
|---|
| 579 | Const MIDICAPS_STREAM = &H0008
|
|---|
| 580 |
|
|---|
| 581 | ' MIDI input device capabilities structure
|
|---|
| 582 | Type MIDIINCAPSA
|
|---|
| 583 | wMid As Word
|
|---|
| 584 | wPid As Word
|
|---|
| 585 | vDriverVersion As MMVERSION
|
|---|
| 586 | szPname[ELM(MAXPNAMELEN)] As Char
|
|---|
| 587 | dwSupport As DWord
|
|---|
| 588 | End Type
|
|---|
| 589 | TypeDef PMIDIINCAPSA = *MIDIINCAPSA
|
|---|
| 590 | TypeDef LPMIDIINCAPSA = *MIDIINCAPSA
|
|---|
| 591 |
|
|---|
| 592 | TypeDef MIDIINCAPS = MIDIINCAPSA
|
|---|
| 593 | TypeDef PMIDIINCAPS = PMIDIINCAPSA
|
|---|
| 594 | TypeDef LPMIDIINCAPS = LPMIDIINCAPSA
|
|---|
| 595 |
|
|---|
| 596 | ' MIDI data block header
|
|---|
| 597 | Type MIDIHDR
|
|---|
| 598 | lpData As LPSTR
|
|---|
| 599 | dwBufferLength As DWord
|
|---|
| 600 | dwBytesRecorded As DWord
|
|---|
| 601 | dwUser As DWord
|
|---|
| 602 | dwFlags As DWord
|
|---|
| 603 | lpNext As *MIDIHDR
|
|---|
| 604 | reserved As DWord
|
|---|
| 605 | dwOffset As DWord
|
|---|
| 606 | dwReserved[ELM(8)] As DWord
|
|---|
| 607 | End Type
|
|---|
| 608 | TypeDef PMIDIHDR = *MIDIHDR
|
|---|
| 609 | TypeDef LPMIDIHDR = *MIDIHDR
|
|---|
| 610 |
|
|---|
| 611 | Type MIDIEVENT
|
|---|
| 612 | dwDeltaTime As DWord
|
|---|
| 613 | dwStreamID As DWord
|
|---|
| 614 | dwEvent As DWord
|
|---|
| 615 | dwParms[ELM(1)] As DWord
|
|---|
| 616 | End Type
|
|---|
| 617 |
|
|---|
| 618 | Type MIDISTRMBUFFVER
|
|---|
| 619 | dwVersion As DWord
|
|---|
| 620 | dwMid As DWord
|
|---|
| 621 | dwOEMVersion As DWord
|
|---|
| 622 | End Type
|
|---|
| 623 |
|
|---|
| 624 | ' flags for dwFlags field of MIDIHDR structure
|
|---|
| 625 | Const MHDR_DONE = &H00000001
|
|---|
| 626 | Const MHDR_PREPARED = &H00000002
|
|---|
| 627 | Const MHDR_INQUEUE = &H00000004
|
|---|
| 628 | Const MHDR_ISSTRM = &H00000008
|
|---|
| 629 |
|
|---|
| 630 | Const MEVT_F_SHORT = &H00000000
|
|---|
| 631 | Const MEVT_F_LONG = &H80000000
|
|---|
| 632 | Const MEVT_F_CALLBACK = &H40000000
|
|---|
| 633 | Const MEVT_EVENTTYPE(x) = ((x>>24) AND &HFF)
|
|---|
| 634 | Const MEVT_EVENTPARM(x) = (x AND &H00FFFFFF)
|
|---|
| 635 | Const MEVT_SHORTMSG = (&H00)
|
|---|
| 636 | Const MEVT_TEMPO = (&H01)
|
|---|
| 637 | Const MEVT_NOP = (&H02)
|
|---|
| 638 | Const MEVT_LONGMSG = (&H80)
|
|---|
| 639 | Const MEVT_COMMENT = (&H82)
|
|---|
| 640 | Const MEVT_VERSION = (&H84)
|
|---|
| 641 |
|
|---|
| 642 | Const MIDISTRM_ERROR = (-2)
|
|---|
| 643 |
|
|---|
| 644 | ' Structures and defines for midiStreamProperty
|
|---|
| 645 | Const MIDIPROP_SET = &H80000000
|
|---|
| 646 | Const MIDIPROP_GET = &H40000000
|
|---|
| 647 | Const MIDIPROP_TIMEDIV = &H00000001
|
|---|
| 648 | Const MIDIPROP_TEMPO = &H00000002
|
|---|
| 649 |
|
|---|
| 650 | Type MIDIPROPTIMEDIV
|
|---|
| 651 | cbStruct As DWord
|
|---|
| 652 | dwTimeDiv As DWord
|
|---|
| 653 | End Type
|
|---|
| 654 | TypeDef LPMIDIPROPTIMEDIV = *MIDIPROPTIMEDIV
|
|---|
| 655 |
|
|---|
| 656 | Type MIDIPROPTEMPO
|
|---|
| 657 | cbStruct As DWord
|
|---|
| 658 | dwTempo As DWord
|
|---|
| 659 | End Type
|
|---|
| 660 | TypeDef LPMIDIPROPTEMPO = *MIDIPROPTEMPO
|
|---|
| 661 |
|
|---|
| 662 |
|
|---|
| 663 | ' MIDI function prototypes
|
|---|
| 664 | Declare Function midiOutGetNumDevs Lib "winmm" () As DWord
|
|---|
| 665 | Declare Function midiStreamOpen Lib "winmm" (ByRef phms As HMIDISTRM, ByRef puDeviceID As DWord, cMidi As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
|
|---|
| 666 | Declare Function midiStreamClose Lib "winmm" (hms As HMIDISTRM) As MMRESULT
|
|---|
| 667 | Declare Function midiStreamProperty Lib "winmm" (hms As HMIDISTRM, lppropdata As *Byte, dwProperty As DWord) As MMRESULT
|
|---|
| 668 | Declare Function midiStreamPosition Lib "winmm" (hms As HMIDISTRM, ByRef lpmmt As MMTIME, cbmmt As DWord) As MMRESULT
|
|---|
| 669 | Declare Function midiStreamOut Lib "winmm" (hms As HMIDISTRM, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 670 | Declare Function midiStreamPause Lib "winmm" (hms As HMIDISTRM) As MMRESULT
|
|---|
| 671 | Declare Function midiStreamRestart Lib "winmm" (hms As HMIDISTRM) As MMRESULT
|
|---|
| 672 | Declare Function midiStreamStop Lib "winmm" (hms As HMIDISTRM) As MMRESULT
|
|---|
| 673 |
|
|---|
| 674 | Declare Function midiConnect Lib "winmm" (hmi As HMIDI, hmo As HMIDIOUT, pReserved As VoidPtr) As MMRESULT
|
|---|
| 675 | Declare Function midiDisconnect Lib "winmm" (hmi As HMIDI, hmo As HMIDIOUT, pReserved As VoidPtr) As MMRESULT
|
|---|
| 676 | Declare Function midiOutGetDevCaps Lib "winmm" Alias "midiOutGetDevCapsA" (uDeviceID As DWord, ByRef pmoc As MIDIOUTCAPS, cbmoc As DWord) As MMRESULT
|
|---|
| 677 | Declare Function midiOutGetVolume Lib "winmm" (hmo As HMIDIOUT, ByRef pdwVolume As DWord) As MMRESULT
|
|---|
| 678 | Declare Function midiOutSetVolume Lib "winmm" (hmo As HMIDIOUT, dwVolume As DWord) As MMRESULT
|
|---|
| 679 | Declare Function midiOutGetErrorText Lib "winmm" Alias "midiOutGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
|
|---|
| 680 | Declare Function midiOutOpen Lib "winmm" (ByRef phmo As HMIDIOUT, uDeviceID As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
|
|---|
| 681 | Declare Function midiOutClose Lib "winmm" (hmo As HMIDIOUT) As MMRESULT
|
|---|
| 682 | Declare Function midiOutPrepareHeader Lib "winmm" (hmo As HMIDIOUT, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 683 | Declare Function midiOutUnprepareHeader Lib "winmm" (hmo As HMIDIOUT, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 684 | Declare Function midiOutShortMsg Lib "winmm" (hmo As HMIDIOUT, dwMsg As DWord) As MMRESULT
|
|---|
| 685 | Declare Function midiOutLongMsg Lib "winmm" (hmo As HMIDIOUT, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 686 | Declare Function midiOutReset Lib "winmm" (hmo As HMIDIOUT) As MMRESULT
|
|---|
| 687 | Declare Function midiOutCachePatches Lib "winmm" (hmo As HMIDIOUT, uBank As DWord, ByRef pwpa As Word, fuCache As DWord) As MMRESULT
|
|---|
| 688 | Declare Function midiOutCacheDrumPatches Lib "winmm" (hmo As HMIDIOUT, uPatch As DWord, ByRef pwkya As Word, fuCache As DWord) As MMRESULT
|
|---|
| 689 | Declare Function midiOutGetID Lib "winmm" (hmo As HMIDIOUT, ByRef puDeviceID As DWord) As MMRESULT
|
|---|
| 690 | Declare Function midiOutMessage Lib "winmm" (hmo As HMIDIOUT, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
|
|---|
| 691 |
|
|---|
| 692 | Declare Function midiInGetNumDevs Lib "winmm" () As DWord
|
|---|
| 693 | Declare Function midiInGetDevCaps Lib "winmm" Alias "midiInGetDevCapsA" (uDeviceID As DWord, ByRef pmic As MIDIINCAPS, cbmic As DWord) As MMRESULT
|
|---|
| 694 | Declare Function midiInGetErrorText Lib "winmm" Alias "midiInGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
|
|---|
| 695 | Declare Function midiInOpen Lib "winmm" (ByRef phmi As HMIDIIN, uDeviceID As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
|
|---|
| 696 | Declare Function midiInClose Lib "winmm" (hmi As HMIDIIN) As MMRESULT
|
|---|
| 697 | Declare Function midiInPrepareHeader Lib "winmm" (hmi As HMIDIIN, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 698 | Declare Function midiInUnprepareHeader Lib "winmm" (hmi As HMIDIIN, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 699 | Declare Function midiInAddBuffer Lib "winmm" (hmi As HMIDIIN, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
|
|---|
| 700 | Declare Function midiInStart Lib "winmm" (hmi As HMIDIIN) As MMRESULT
|
|---|
| 701 | Declare Function midiInStop Lib "winmm" (hmi As HMIDIIN) As MMRESULT
|
|---|
| 702 | Declare Function midiInReset Lib "winmm" (hmi As HMIDIIN) As MMRESULT
|
|---|
| 703 | Declare Function midiInGetID Lib "winmm" (hmi As HMIDIIN, ByRef puDeviceID As DWord) As MMRESULT
|
|---|
| 704 | Declare Function midiInMessage Lib "winmm" (hmi As HMIDIIN, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
|
|---|
| 705 |
|
|---|
| 706 |
|
|---|
| 707 |
|
|---|
| 708 | '--------------------------------------------------------
|
|---|
| 709 | ' Time Format(used in MCI_SET_PARAMS, MCI_STATUS_PARAMS)
|
|---|
| 710 |
|
|---|
| 711 | Const MCI_FORMAT_MILLISECONDS = 0
|
|---|
| 712 | Const MCI_FORMAT_HMS = 1
|
|---|
| 713 | Const MCI_FORMAT_MSF = 2
|
|---|
| 714 | Const MCI_FORMAT_FRAMES = 3
|
|---|
| 715 | Const MCI_FORMAT_SMPTE_24 = 4
|
|---|
| 716 | Const MCI_FORMAT_SMPTE_25 = 5
|
|---|
| 717 | Const MCI_FORMAT_SMPTE_30 = 6
|
|---|
| 718 | Const MCI_FORMAT_SMPTE_30DROP = 7
|
|---|
| 719 | Const MCI_FORMAT_BYTES = 8
|
|---|
| 720 | Const MCI_FORMAT_SAMPLES = 9
|
|---|
| 721 | Const MCI_FORMAT_TMSF = 10
|
|---|
| 722 |
|
|---|
| 723 |
|
|---|
| 724 | '--------------
|
|---|
| 725 | ' Types of MCI
|
|---|
| 726 | '--------------
|
|---|
| 727 |
|
|---|
| 728 | Type MCI_OPEN_PARMS
|
|---|
| 729 | dwCallback As DWord
|
|---|
| 730 | wDeviceID As DWord
|
|---|
| 731 | lpstrDeviceType As BytePtr
|
|---|
| 732 | lpstrElementName As BytePtr
|
|---|
| 733 | lpstrAlias As BytePtr
|
|---|
| 734 | End Type
|
|---|
| 735 |
|
|---|
| 736 | Type MCI_PLAY_PARMS
|
|---|
| 737 | dwCallback As DWord
|
|---|
| 738 | dwFrom As DWord
|
|---|
| 739 | dwTo As DWord
|
|---|
| 740 | End Type
|
|---|
| 741 |
|
|---|
| 742 | Type MCI_SEEK_PARMS
|
|---|
| 743 | dwCallback As DWord
|
|---|
| 744 | dwTo As DWord
|
|---|
| 745 | End Type
|
|---|
| 746 |
|
|---|
| 747 | Type MCI_SET_PARMS
|
|---|
| 748 | dwCallback As DWord
|
|---|
| 749 | dwTimeFormat As DWord
|
|---|
| 750 | dwAudio As DWord
|
|---|
| 751 | End Type
|
|---|
| 752 |
|
|---|
| 753 | Const MCI_STATUS_LENGTH = &H00000001
|
|---|
| 754 | Const MCI_STATUS_POSITION = &H00000002
|
|---|
| 755 | Const MCI_STATUS_NUMBER_OF_TRACKS = &H00000003
|
|---|
| 756 | Const MCI_STATUS_MODE = &H00000004
|
|---|
| 757 | Const MCI_STATUS_MEDIA_PRESENT = &H00000005
|
|---|
| 758 | Const MCI_STATUS_TIME_FORMAT = &H00000006
|
|---|
| 759 | Const MCI_STATUS_READY = &H00000007
|
|---|
| 760 | Const MCI_STATUS_CURRENT_TRACK = &H00000008
|
|---|
| 761 | Type MCI_STATUS_PARMS
|
|---|
| 762 | dwCallback As DWord
|
|---|
| 763 | dwReturn As DWord
|
|---|
| 764 | dwItem As DWord
|
|---|
| 765 | dwTrack As DWord
|
|---|
| 766 | End Type
|
|---|
| 767 |
|
|---|
| 768 |
|
|---|
| 769 | '------------
|
|---|
| 770 | ' MCI Macros
|
|---|
| 771 |
|
|---|
| 772 | Function MCI_MAKE_TMSF(tracks As Byte, minutes As Byte, seconds As Byte, frames As Byte) As DWord
|
|---|
| 773 | MCI_MAKE_TMSF=MAKELONG(MAKEWORD(tracks,minutes),MAKEWORD(seconds,frames))
|
|---|
| 774 | End Function
|
|---|
| 775 |
|
|---|
| 776 | Function MCI_MSF_MINUTE(dwMFS As DWord) As Byte
|
|---|
| 777 | MCI_MSF_MINUTE=LOBYTE(LOWORD(dwMFS))
|
|---|
| 778 | End Function
|
|---|
| 779 |
|
|---|
| 780 | Function MCI_MSF_SECOND(dwMFS As DWord) As Byte
|
|---|
| 781 | MCI_MSF_SECOND=HIBYTE(LOWORD(dwMFS))
|
|---|
| 782 | End Function
|
|---|
| 783 |
|
|---|
| 784 |
|
|---|
| 785 | '---------------
|
|---|
| 786 | ' MCI Functions
|
|---|
| 787 |
|
|---|
| 788 | ' common flags for dwFlags parameter of MCI command messages
|
|---|
| 789 | Const MCI_NOTIFY = &H00000001
|
|---|
| 790 | Const MCI_WAIT = &H00000002
|
|---|
| 791 | Const MCI_FROM = &H00000004
|
|---|
| 792 | Const MCI_TO = &H00000008
|
|---|
| 793 | Const MCI_TRACK = &H00000010
|
|---|
| 794 |
|
|---|
| 795 | ' flags for dwFlags parameter of MCI_OPEN command message
|
|---|
| 796 | Const MCI_OPEN_SHAREABLE = &H00000100
|
|---|
| 797 | Const MCI_OPEN_ELEMENT = &H00000200
|
|---|
| 798 | Const MCI_OPEN_ALIAS = &H00000400
|
|---|
| 799 | Const MCI_OPEN_ELEMENT_ID = &H00000800
|
|---|
| 800 | Const MCI_OPEN_TYPE_ID = &H00001000
|
|---|
| 801 | Const MCI_OPEN_TYPE = &H00002000
|
|---|
| 802 | Const MCI_ANIM_OPEN_WS = &H00010000
|
|---|
| 803 | Const MCI_ANIM_OPEN_PARENT = &H00020000
|
|---|
| 804 | Const MCI_ANIM_OPEN_NOSTATIC = &H00040000
|
|---|
| 805 | Const MCI_DGV_OPEN_WS = &H00010000
|
|---|
| 806 | Const MCI_DGV_OPEN_PARENT = &H00020000
|
|---|
| 807 | Const MCI_DGV_OPEN_NOSTATIC = &H00040000
|
|---|
| 808 | Const MCI_DGV_OPEN_16BIT = &H00080000
|
|---|
| 809 | Const MCI_DGV_OPEN_32BIT = &H00100000
|
|---|
| 810 | Const MCI_OVLY_OPEN_WS = &H00010000
|
|---|
| 811 | Const MCI_OVLY_OPEN_PARENT = &H00020000
|
|---|
| 812 |
|
|---|
| 813 | ' flags for dwFlags parameter of MCI_PLAY command message
|
|---|
| 814 | Const MCI_ANIM_PLAY_SPEED = &H00010000
|
|---|
| 815 | Const MCI_ANIM_PLAY_REVERSE = &H00020000
|
|---|
| 816 | Const MCI_ANIM_PLAY_FAST = &H00040000
|
|---|
| 817 | Const MCI_ANIM_PLAY_SLOW = &H00080000
|
|---|
| 818 | Const MCI_ANIM_PLAY_SCAN = &H00100000
|
|---|
| 819 | Const MCI_DGV_PLAY_REPEAT = &H00010000
|
|---|
| 820 | Const MCI_DGV_PLAY_REVERSE = &H00020000
|
|---|
| 821 | Const MCI_MCIAVI_PLAY_WINDOW = &H01000000
|
|---|
| 822 | Const MCI_MCIAVI_PLAY_FULLSCREEN = &H02000000
|
|---|
| 823 | Const MCI_VCR_PLAY_REVERSE = &H00010000
|
|---|
| 824 | Const MCI_VCR_PLAY_AT = &H00020000
|
|---|
| 825 | Const MCI_VCR_PLAY_SCAN = &H00040000
|
|---|
| 826 | Const MCI_VD_PLAY_REVERSE = &H00010000
|
|---|
| 827 | Const MCI_VD_PLAY_FAST = &H00020000
|
|---|
| 828 | Const MCI_VD_PLAY_SPEED = &H00040000
|
|---|
| 829 | Const MCI_VD_PLAY_SCAN = &H00080000
|
|---|
| 830 | Const MCI_VD_PLAY_SLOW = &H00100000
|
|---|
| 831 |
|
|---|
| 832 | ' flags for dwFlags parameter of MCI_SEEK command message
|
|---|
| 833 | Const MCI_SEEK_TO_START = &H00000100
|
|---|
| 834 | Const MCI_SEEK_TO_END = &H00000200
|
|---|
| 835 | Const MCI_VCR_SEEK_REVERSE = &H00010000
|
|---|
| 836 | Const MCI_VCR_SEEK_MARK = &H00020000
|
|---|
| 837 | Const MCI_VCR_SEEK_AT = &H00040000
|
|---|
| 838 | Const MCI_VD_SEEK_REVERSE = &H00010000
|
|---|
| 839 |
|
|---|
| 840 | ' flags for dwFlags parameter of MCI_SET command message
|
|---|
| 841 | Const MCI_SET_DOOR_OPEN = &H00000100
|
|---|
| 842 | Const MCI_SET_DOOR_CLOSED = &H00000200
|
|---|
| 843 | Const MCI_SET_TIME_FORMAT = &H00000400
|
|---|
| 844 | Const MCI_SET_AUDIO = &H00000800
|
|---|
| 845 | Const MCI_SET_VIDEO = &H00001000
|
|---|
| 846 | Const MCI_SET_ON = &H00002000
|
|---|
| 847 | Const MCI_SET_OFF = &H00004000
|
|---|
| 848 | Const MCI_DGV_SET_SEEK_EXACTLY = &H00010000
|
|---|
| 849 | Const MCI_DGV_SET_SPEED = &H00020000
|
|---|
| 850 | Const MCI_DGV_SET_STILL = &H00040000
|
|---|
| 851 | Const MCI_DGV_SET_FILEFORMAT = &H00080000
|
|---|
| 852 | Const MCI_SEQ_FORMAT_SONGPTR = &H4001
|
|---|
| 853 | Const MCI_SEQ_FILE = &H4002
|
|---|
| 854 | Const MCI_SEQ_MIDI = &H4003
|
|---|
| 855 | Const MCI_SEQ_SMPTE = &H4004
|
|---|
| 856 | Const MCI_SEQ_NONE = 65533
|
|---|
| 857 | Const MCI_SEQ_MAPPER = 65535
|
|---|
| 858 | Const MCI_SEQ_SET_TEMPO = &H00010000
|
|---|
| 859 | Const MCI_SEQ_SET_PORT = &H00020000
|
|---|
| 860 | Const MCI_SEQ_SET_SLAVE = &H00040000
|
|---|
| 861 | Const MCI_SEQ_SET_MASTER = &H00080000
|
|---|
| 862 | Const MCI_SEQ_SET_OFFSET = &H01000000
|
|---|
| 863 | Const MCI_VCR_SET_TIME_MODE = &H00010000
|
|---|
| 864 | Const MCI_VCR_SET_POWER = &H00020000
|
|---|
| 865 | Const MCI_VCR_SET_RECORD_FORMAT = &H00040000
|
|---|
| 866 | Const MCI_VCR_SET_COUNTER_FORMAT = &H00080000
|
|---|
| 867 | Const MCI_VCR_SET_INDEX = &H00100000
|
|---|
| 868 | Const MCI_VCR_SET_ASSEMBLE_RECORD = &H00200000
|
|---|
| 869 | Const MCI_VCR_SET_TRACKING = &H00400000
|
|---|
| 870 | Const MCI_VCR_SET_SPEED = &H00800000
|
|---|
| 871 | Const MCI_VCR_SET_TAPE_LENGTH = &H01000000
|
|---|
| 872 | Const MCI_VCR_SET_COUNTER_VALUE = &H02000000
|
|---|
| 873 | Const MCI_VCR_SET_CLOCK = &H04000000
|
|---|
| 874 | Const MCI_VCR_SET_PAUSE_TIMEOUT = &H08000000
|
|---|
| 875 | Const MCI_VCR_SET_PREROLL_DURATION = &H10000000
|
|---|
| 876 | Const MCI_VCR_SET_POSTROLL_DURATION = &H20000000
|
|---|
| 877 | Const MCI_VD_FORMAT_TRACK = &H4001
|
|---|
| 878 | Const MCI_WAVE_SET_FORMATTAG = &H00010000
|
|---|
| 879 | Const MCI_WAVE_SET_CHANNELS = &H00020000
|
|---|
| 880 | Const MCI_WAVE_SET_SAMPLESPERSEC = &H00040000
|
|---|
| 881 | Const MCI_WAVE_SET_AVGBYTESPERSEC = &H00080000
|
|---|
| 882 | Const MCI_WAVE_SET_BLOCKALIGN = &H00100000
|
|---|
| 883 | Const MCI_WAVE_SET_BITSPERSAMPLE = &H00200000
|
|---|
| 884 | Const MCI_WAVE_INPUT = &H00400000
|
|---|
| 885 | Const MCI_WAVE_OUTPUT = &H00800000
|
|---|
| 886 | Const MCI_WAVE_SET_ANYINPUT = &H04000000
|
|---|
| 887 | Const MCI_WAVE_SET_ANYOUTPUT = &H08000000
|
|---|
| 888 |
|
|---|
| 889 | ' flags for dwFlags parameter of MCI_STATUS command message
|
|---|
| 890 | Const MCI_STATUS_ITEM = &H00000100
|
|---|
| 891 | Const MCI_STATUS_START = &H00000200
|
|---|
| 892 | Const MCI_CDA_STATUS_TYPE_TRACK = &H00004001
|
|---|
| 893 | Const MCI_CDA_TRACK_AUDIO = MCI_CD_OFFSET+0
|
|---|
| 894 | Const MCI_CDA_TRACK_OTHER = MCI_CD_OFFSET+1
|
|---|
| 895 | Const MCI_DGV_STATUS_NOMINAL = &H00020000
|
|---|
| 896 | Const MCI_DGV_STATUS_REFERENCE = &H00040000
|
|---|
| 897 | Const MCI_DGV_STATUS_LEFT = &H00080000
|
|---|
| 898 | Const MCI_DGV_STATUS_RIGHT = &H00100000
|
|---|
| 899 | Const MCI_DGV_STATUS_DISKSPACE = &H00200000
|
|---|
| 900 | Const MCI_DGV_STATUS_INPUT = &H00400000
|
|---|
| 901 | Const MCI_DGV_STATUS_OUTPUT = &H00800000
|
|---|
| 902 | Const MCI_DGV_STATUS_RECORD = &H01000000
|
|---|
| 903 |
|
|---|
| 904 | ' constants for predefined MCI device types
|
|---|
| 905 | Const MCI_DEVTYPE_VCR = 513
|
|---|
| 906 | Const MCI_DEVTYPE_VIDEODISC = 514
|
|---|
| 907 | Const MCI_DEVTYPE_OVERLAY = 515
|
|---|
| 908 | Const MCI_DEVTYPE_CD_AUDIO = 516
|
|---|
| 909 | Const MCI_DEVTYPE_DAT = 517
|
|---|
| 910 | Const MCI_DEVTYPE_SCANNER = 518
|
|---|
| 911 | Const MCI_DEVTYPE_ANIMATION = 519
|
|---|
| 912 | Const MCI_DEVTYPE_DIGITAL_VIDEO = 520
|
|---|
| 913 | Const MCI_DEVTYPE_OTHER = 521
|
|---|
| 914 | Const MCI_DEVTYPE_WAVEFORM_AUDIO = 522
|
|---|
| 915 | Const MCI_DEVTYPE_SEQUENCER = 523
|
|---|
| 916 |
|
|---|
| 917 | ' return values for 'status mode' command
|
|---|
| 918 | Const MCI_MODE_NOT_READY = MCI_STRING_OFFSET + 12
|
|---|
| 919 | Const MCI_MODE_STOP = MCI_STRING_OFFSET + 13
|
|---|
| 920 | Const MCI_MODE_PLAY = MCI_STRING_OFFSET + 14
|
|---|
| 921 | Const MCI_MODE_RECORD = MCI_STRING_OFFSET + 15
|
|---|
| 922 | Const MCI_MODE_SEEK = MCI_STRING_OFFSET + 16
|
|---|
| 923 | Const MCI_MODE_PAUSE = MCI_STRING_OFFSET + 17
|
|---|
| 924 | Const MCI_MODE_OPEN = MCI_STRING_OFFSET + 18
|
|---|
| 925 |
|
|---|
| 926 | Const MCI_OPEN = &H0803
|
|---|
| 927 | Const MCI_CLOSE = &H0804
|
|---|
| 928 | Const MCI_ESCAPE = &H0805
|
|---|
| 929 | Const MCI_PLAY = &H0806
|
|---|
| 930 | Const MCI_SEEK = &H0807
|
|---|
| 931 | Const MCI_STOP = &H0808
|
|---|
| 932 | Const MCI_PAUSE = &H0809
|
|---|
| 933 | Const MCI_INFO = &H080A
|
|---|
| 934 | Const MCI_GETDEVCAPS = &H080B
|
|---|
| 935 | Const MCI_SPIN = &H080C
|
|---|
| 936 | Const MCI_SET = &H080D
|
|---|
| 937 | Const MCI_STEP = &H080E
|
|---|
| 938 | Const MCI_RECORD = &H080F
|
|---|
| 939 | Const MCI_SYSINFO = &H0810
|
|---|
| 940 | Const MCI_BREAK = &H0811
|
|---|
| 941 | Const MCI_SAVE = &H0813
|
|---|
| 942 | Const MCI_STATUS = &H0814
|
|---|
| 943 | Const MCI_CUE = &H0830
|
|---|
| 944 | Const MCI_REALIZE = &H0840
|
|---|
| 945 | Const MCI_WINDOW = &H0841
|
|---|
| 946 | Const MCI_PUT = &H0842
|
|---|
| 947 | Const MCI_WHERE = &H0843
|
|---|
| 948 | Const MCI_FREEZE = &H0844
|
|---|
| 949 | Const MCI_UNFREEZE = &H0845
|
|---|
| 950 | Const MCI_LOAD = &H0850
|
|---|
| 951 | Const MCI_CUT = &H0851
|
|---|
| 952 | Const MCI_COPY = &H0852
|
|---|
| 953 | Const MCI_PASTE = &H0853
|
|---|
| 954 | Const MCI_UPDATE = &H0854
|
|---|
| 955 | Const MCI_RESUME = &H0855
|
|---|
| 956 | Const MCI_DELETE = &H0856
|
|---|
| 957 | Declare Function mciSendCommand Lib "winmm" Alias "mciSendCommandA" (dwMciID As DWord, uMsg As DWord, fdwCommand As DWord, ByRef lpParam As Any) As DWord
|
|---|
| 958 |
|
|---|
| 959 | Const MCIERR_INVALID_DEVICE_ID = MCIERR_BASE + 1
|
|---|
| 960 | Const MCIERR_UNRECOGNIZED_KEYWORD = MCIERR_BASE + 3
|
|---|
| 961 | Const MCIERR_UNRECOGNIZED_COMMAND = MCIERR_BASE + 5
|
|---|
| 962 | Const MCIERR_HARDWARE = MCIERR_BASE + 6
|
|---|
| 963 | Const MCIERR_INVALID_DEVICE_NAME = MCIERR_BASE + 7
|
|---|
| 964 | Const MCIERR_OUT_OF_MEMORY = MCIERR_BASE + 8
|
|---|
| 965 | Const MCIERR_DEVICE_OPEN = MCIERR_BASE + 9
|
|---|
| 966 | Const MCIERR_CANNOT_LOAD_DRIVER = MCIERR_BASE + 10
|
|---|
| 967 | Const MCIERR_MISSING_COMMAND_STRING = MCIERR_BASE + 11
|
|---|
| 968 | Const MCIERR_PARAM_OVERFLOW = MCIERR_BASE + 12
|
|---|
| 969 | Const MCIERR_MISSING_STRING_ARGUMENT = MCIERR_BASE + 13
|
|---|
| 970 | Const MCIERR_BAD_INTEGER = MCIERR_BASE + 14
|
|---|
| 971 | Const MCIERR_PARSER_INTERNAL = MCIERR_BASE + 15
|
|---|
| 972 | Const MCIERR_DRIVER_INTERNAL = MCIERR_BASE + 16
|
|---|
| 973 | Const MCIERR_MISSING_PARAMETER = MCIERR_BASE + 17
|
|---|
| 974 | Const MCIERR_UNSUPPORTED_FUNCTION = MCIERR_BASE + 18
|
|---|
| 975 | Const MCIERR_FILE_NOT_FOUND = MCIERR_BASE + 19
|
|---|
| 976 | Const MCIERR_DEVICE_NOT_READY = MCIERR_BASE + 20
|
|---|
| 977 | Const MCIERR_INTERNAL = MCIERR_BASE + 21
|
|---|
| 978 | Const MCIERR_DRIVER = MCIERR_BASE + 22
|
|---|
| 979 | Const MCIERR_CANNOT_USE_ALL = MCIERR_BASE + 23
|
|---|
| 980 | Const MCIERR_MULTIPLE = MCIERR_BASE + 24
|
|---|
| 981 | Const MCIERR_EXTENSION_NOT_FOUND = MCIERR_BASE + 25
|
|---|
| 982 | Const MCIERR_OUTOFRANGE = MCIERR_BASE + 26
|
|---|
| 983 | Const MCIERR_FLAGS_NOT_COMPATIBLE = MCIERR_BASE + 28
|
|---|
| 984 | Const MCIERR_FILE_NOT_SAVED = MCIERR_BASE + 30
|
|---|
| 985 | Const MCIERR_DEVICE_TYPE_REQUIRED = MCIERR_BASE + 31
|
|---|
| 986 | Const MCIERR_DEVICE_LOCKED = MCIERR_BASE + 32
|
|---|
| 987 | Const MCIERR_DUPLICATE_ALIAS = MCIERR_BASE + 33
|
|---|
| 988 | Const MCIERR_BAD_CONSTANT = MCIERR_BASE + 34
|
|---|
| 989 | Const MCIERR_MUST_USE_SHAREABLE = MCIERR_BASE + 35
|
|---|
| 990 | Const MCIERR_MISSING_DEVICE_NAME = MCIERR_BASE + 36
|
|---|
| 991 | Const MCIERR_BAD_TIME_FORMAT = MCIERR_BASE + 37
|
|---|
| 992 | Const MCIERR_NO_CLOSING_QUOTE = MCIERR_BASE + 38
|
|---|
| 993 | Const MCIERR_DUPLICATE_FLAGS = MCIERR_BASE + 39
|
|---|
| 994 | Const MCIERR_INVALID_FILE = MCIERR_BASE + 40
|
|---|
| 995 | Const MCIERR_NULL_PARAMETER_BLOCK = MCIERR_BASE + 41
|
|---|
| 996 | Const MCIERR_UNNAMED_RESOURCE = MCIERR_BASE + 42
|
|---|
| 997 | Const MCIERR_NEW_REQUIRES_ALIAS = MCIERR_BASE + 43
|
|---|
| 998 | Const MCIERR_NOTIFY_ON_AUTO_OPEN = MCIERR_BASE + 44
|
|---|
| 999 | Const MCIERR_NO_ELEMENT_ALLOWED = MCIERR_BASE + 45
|
|---|
| 1000 | Const MCIERR_NONAPPLICABLE_FUNCTION = MCIERR_BASE + 46
|
|---|
| 1001 | Const MCIERR_ILLEGAL_FOR_AUTO_OPEN = MCIERR_BASE + 47
|
|---|
| 1002 | Const MCIERR_FILENAME_REQUIRED = MCIERR_BASE + 48
|
|---|
| 1003 | Const MCIERR_EXTRA_CHARACTERS = MCIERR_BASE + 49
|
|---|
| 1004 | Const MCIERR_DEVICE_NOT_INSTALLED = MCIERR_BASE + 50
|
|---|
| 1005 | Const MCIERR_GET_CD = MCIERR_BASE + 51
|
|---|
| 1006 | Const MCIERR_SET_CD = MCIERR_BASE + 52
|
|---|
| 1007 | Const MCIERR_SET_DRIVE = MCIERR_BASE + 53
|
|---|
| 1008 | Const MCIERR_DEVICE_LENGTH = MCIERR_BASE + 54
|
|---|
| 1009 | Const MCIERR_DEVICE_ORD_LENGTH = MCIERR_BASE + 55
|
|---|
| 1010 | Const MCIERR_NO_INTEGER = MCIERR_BASE + 56
|
|---|
| 1011 | Const MCIERR_WAVE_OUTPUTSINUSE = MCIERR_BASE + 64
|
|---|
| 1012 | Const MCIERR_WAVE_SETOUTPUTINUSE = MCIERR_BASE + 65
|
|---|
| 1013 | Const MCIERR_WAVE_INPUTSINUSE = MCIERR_BASE + 66
|
|---|
| 1014 | Const MCIERR_WAVE_SETINPUTINUSE = MCIERR_BASE + 67
|
|---|
| 1015 | Const MCIERR_WAVE_OUTPUTUNSPECIFIED = MCIERR_BASE + 68
|
|---|
| 1016 | Const MCIERR_WAVE_INPUTUNSPECIFIED = MCIERR_BASE + 69
|
|---|
| 1017 | Const MCIERR_WAVE_OUTPUTSUNSUITABLE = MCIERR_BASE + 70
|
|---|
| 1018 | Const MCIERR_WAVE_SETOUTPUTUNSUITABLE = MCIERR_BASE + 71
|
|---|
| 1019 | Const MCIERR_WAVE_INPUTSUNSUITABLE = MCIERR_BASE + 72
|
|---|
| 1020 | Const MCIERR_WAVE_SETINPUTUNSUITABLE = MCIERR_BASE + 73
|
|---|
| 1021 | Const MCIERR_SEQ_DIV_INCOMPATIBLE = MCIERR_BASE + 80
|
|---|
| 1022 | Const MCIERR_SEQ_PORT_INUSE = MCIERR_BASE + 81
|
|---|
| 1023 | Const MCIERR_SEQ_PORT_NONEXISTENT = MCIERR_BASE + 82
|
|---|
| 1024 | Const MCIERR_SEQ_PORT_MAPNODEVICE = MCIERR_BASE + 83
|
|---|
| 1025 | Const MCIERR_SEQ_PORT_MISCERROR = MCIERR_BASE + 84
|
|---|
| 1026 | Const MCIERR_SEQ_TIMER = MCIERR_BASE + 85
|
|---|
| 1027 | Const MCIERR_SEQ_PORTUNSPECIFIED = MCIERR_BASE + 86
|
|---|
| 1028 | Const MCIERR_SEQ_NOMIDIPRESENT = MCIERR_BASE + 87
|
|---|
| 1029 | Const MCIERR_NO_WINDOW = MCIERR_BASE + 90
|
|---|
| 1030 | Const MCIERR_CREATEWINDOW = MCIERR_BASE + 91
|
|---|
| 1031 | Const MCIERR_FILE_READ = MCIERR_BASE + 92
|
|---|
| 1032 | Const MCIERR_FILE_WRITE = MCIERR_BASE + 93
|
|---|
| 1033 | Const MCIERR_NO_IDENTITY = MCIERR_BASE + 94
|
|---|
| 1034 | Const MCIERR_CUSTOM_DRIVER_BASE = MCIERR_BASE + 256
|
|---|
| 1035 | Declare Function mciGetErrorString Lib "winmm" Alias "mciGetErrorStringA" (mcierr As DWord, pszText As PSTR, cchText As Long) As BOOL
|
|---|
| 1036 |
|
|---|
| 1037 |
|
|---|
| 1038 | #endif '_INC_MMSYS
|
|---|
