Context Navigation

source: Include/api_mmsys.sbp@ 232

Last change on this file since 232 was 181, checked in by dai, 18 years ago
MCI_OVLY_WINDOW_PARMSAの定義漏れを修正。
File size: 96.1 KB

Rev	Line
[1]	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
	87	Const MM_WOM_OPEN = &H3BB 'waveform output
	88	Const MM_WOM_CLOSE = &H3BC
	89	Const MM_WOM_DONE = &H3BD
	90
	91	Const MM_WIM_OPEN = &H3BE 'waveform input
	92	Const MM_WIM_CLOSE = &H3BF
	93	Const MM_WIM_DATA = &H3C0
	94
	95	Const MM_MIM_OPEN = &H3C1 'MIDI input
	96	Const MM_MIM_CLOSE = &H3C2
	97	Const MM_MIM_DATA = &H3C3
	98	Const MM_MIM_LONGDATA = &H3C4
	99	Const MM_MIM_ERROR = &H3C5
	100	Const MM_MIM_LONGERROR = &H3C6
	101
	102	Const MM_MOM_OPEN = &H3C7 'MIDI output
	103	Const MM_MOM_CLOSE = &H3C8
	104	Const MM_MOM_DONE = &H3C9
	105
	106	Const MM_DRVM_OPEN = &H3D0 'installable drivers
	107	Const MM_DRVM_CLOSE = &H3D1
	108	Const MM_DRVM_DATA = &H3D2
	109	Const MM_DRVM_ERROR = &H3D3
	110
	111	Const MM_STREAM_OPEN = &H3D4
	112	Const MM_STREAM_CLOSE = &H3D5
	113	Const MM_STREAM_DONE = &H3D6
	114	Const MM_STREAM_ERROR = &H3D7
	115
	116	Const MM_MOM_POSITIONCB = &H3CA
	117
	118	Const MM_MCISIGNAL = &H3CB
	119
	120	Const MM_MIM_MOREDATA = &H3CC 'MIM_DONE w/ pending events
	121
	122	Const MM_MIXM_LINE_CHANGE = &H3D0 'mixer line change notify
	123	Const MM_MIXM_CONTROL_CHANGE =&H3D1 'mixer control change notify
	124
	125
	126	'----------------------------------------------
	127	' String resource number bases (internal use)
	128
	129	Const MMSYSERR_BASE = 0
	130	Const WAVERR_BASE = 32
	131	Const MIDIERR_BASE = 64
	132	Const TIMERR_BASE = 96
	133	Const JOYERR_BASE = 160
	134	Const MCIERR_BASE = 256
	135	Const MIXERR_BASE = 1024
	136
	137	Const MCI_STRING_OFFSET = 512
	138	Const MCI_VD_OFFSET = 1024
	139	Const MCI_CD_OFFSET = 1088
	140	Const MCI_WAVE_OFFSET = 1152
	141	Const MCI_SEQ_OFFSET = 1216
	142
	143
	144	'----------------------------------------------
	145	' General error return values
	146
	147	Const MMSYSERR_NOERROR = 0 'no error
	148	Const MMSYSERR_ERROR = (MMSYSERR_BASE + 1) 'unspecified error
	149	Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2) 'device ID out of range
	150	Const MMSYSERR_NOTENABLED = (MMSYSERR_BASE + 3) 'driver failed enable
	151	Const MMSYSERR_ALLOCATED = (MMSYSERR_BASE + 4) 'device already allocated
	152	Const MMSYSERR_INVALHANDLE = (MMSYSERR_BASE + 5) 'device handle is invalid
	153	Const MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6) 'no device driver present
	154	Const MMSYSERR_NOMEM = (MMSYSERR_BASE + 7) 'memory allocation error
	155	Const MMSYSERR_NOTSUPPORTED= (MMSYSERR_BASE + 8) 'function isn't supported
	156	Const MMSYSERR_BADERRNUM = (MMSYSERR_BASE + 9) 'error value out of range
	157	Const MMSYSERR_INVALFLAG = (MMSYSERR_BASE + 10) 'invalid flag passed
	158	Const MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11) 'invalid parameter passed
	159	Const MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE + 12) 'handle being used
	160	Const MMSYSERR_INVALIDALIAS= (MMSYSERR_BASE + 13) 'specified alias not found
	161	Const MMSYSERR_BADDB = (MMSYSERR_BASE + 14) 'bad registry database
	162	Const MMSYSERR_KEYNOTFOUND = (MMSYSERR_BASE + 15) 'registry key not found
	163	Const MMSYSERR_READERROR = (MMSYSERR_BASE + 16) 'registry read error
	164	Const MMSYSERR_WRITEERROR = (MMSYSERR_BASE + 17) 'registry write error
	165	Const MMSYSERR_DELETEERROR = (MMSYSERR_BASE + 18) 'registry delete error
	166	Const MMSYSERR_VALNOTFOUND = (MMSYSERR_BASE + 19) 'registry value not found
	167	Const MMSYSERR_NODRIVERCB = (MMSYSERR_BASE + 20) 'driver does not call DriverCallback
	168	Const MMSYSERR_LASTERROR = (MMSYSERR_BASE + 20) 'last error in range
	169
	170
	171	'--------------------------------------------------------
	172	' Installable driver support
	173
	174	Type _System_DeclareHandle_HDRVR:unused As DWord:End Type
	175	TypeDef HDRVR = *_System_DeclareHandle_HDRVR
	176
	177	Type DRVCONFIGINFOEX
	178	dwDCISize As DWord
	179	lpszDCISectionName As LPCWSTR
	180	lpszDCIAliasName As LPCWSTR
	181	dnDevNode As DWORD
	182	End Type
	183	TypeDef PDRVCONFIGINFOEX = *DRVCONFIGINFOEX
	184	TypeDef LPDRVCONFIGINFOEX = *DRVCONFIGINFOEX
	185
	186	' Driver messages
	187	Const DRV_LOAD = &H0001
	188	Const DRV_ENABLE = &H0002
	189	Const DRV_OPEN = &H0003
	190	Const DRV_CLOSE = &H0004
	191	Const DRV_DISABLE = &H0005
	192	Const DRV_FREE = &H0006
	193	Const DRV_CONFIGURE = &H0007
	194	Const DRV_QUERYCONFIGURE = &H0008
	195	Const DRV_INSTALL = &H0009
	196	Const DRV_REMOVE = &H000A
	197	Const DRV_EXITSESSION = &H000B
	198	Const DRV_POWER = &H000F
	199	Const DRV_RESERVED = &H0800
	200	Const DRV_USER = &H4000
	201
	202	Type DRVCONFIGINFO
	203	dwDCISize As DWord
	204	lpszDCISectionName As LPCWSTR
	205	lpszDCIAliasName As LPCWSTR
	206	End Type
	207	TypeDef PDRVCONFIGINFO = *DRVCONFIGINFO
	208	TypeDef LPDRVCONFIGINFO = *DRVCONFIGINFO
	209
	210	' Supported return values for DRV_CONFIGURE message
	211	Const DRVCNF_CANCEL = &H0000
	212	Const DRVCNF_OK = &H0001
	213	Const DRVCNF_RESTART = &H0002
	214
	215	TypeDef DRIVERPROC = *Function(dwDriverId As DWord, hdrvr As HDRVR, msg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
	216
	217	Declare Function CloseDriver Lib "winmm" (hDriver As HDRVR, lParam1 As Long, lParam2 As Long) As LRESULT
	218	Declare Function OpenDriver Lib "winmm" (szDriverName As LPCWSTR, szSectionName As LPCWSTR, lParam2 As Long) As HDRVR
	219	Declare Function SendDriverMessage Lib "winmm" (hDriver As HDRVR, message As DWord, lParam1 As Long, lParam2 As Long) As LRESULT
	220	Declare Function GetDriverModuleHandle Lib "winmm" (hDriver As HDRVR) As HMODULE
	221	Declare Function DefDriverProc Lib "winmm" (dwDriverIdentifier As DWord, hdrvr As HDRVR, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
	222
	223	Declare Function DrvClose Lib "winmm" Alias "CloseDriver" (hDriver As HDRVR, lParam1 As Long, lParam2 As Long) As LRESULT
	224	Declare Function DrvOpen Lib "winmm" Alias "OpenDriver" (szDriverName As LPCWSTR, szSectionName As LPCWSTR, lParam2 As Long) As HDRVR
	225	Declare Function DrvSendMessage Lib "winmm" Alias "SendDriverMessage" (hDriver As HDRVR, message As DWord, lParam1 As Long, lParam2 As Long) As LRESULT
	226	Declare Function DrvGetModuleHandle Lib "winmm" Alias "GetDriverModuleHandle" (hDriver As HDRVR) As HMODULE
	227	Declare Function DrvDefDriverProc Lib "winmm" Alias "DefDriverProc" (dwDriverIdentifier As DWord, hdrvr As HDRVR, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
	228
	229	' return values from DriverProc() function
	230	Const DRV_CANCEL = DRVCNF_CANCEL
	231	Const DRV_OK = DRVCNF_OK
	232	Const DRV_RESTART = DRVCNF_RESTART
	233
	234	Const DRV_MCI_FIRST = DRV_RESERVED
	235	Const DRV_MCI_LAST = (DRV_RESERVED + &HFFF)
	236
	237
	238	'--------------------------------------------------------
	239	' Driver callback support
	240	Const CALLBACK_TYPEMASK = &H00070000 'callback type mask
	241	Const CALLBACK_NULL = &H00000000 'no callback
	242	Const CALLBACK_WINDOW = &H00010000 'dwCallback is a HWND
	243	Const CALLBACK_TASK = &H00020000 'dwCallback is a HTASK
	244	Const CALLBACK_FUNCTION = &H00030000 'dwCallback is a FARPROC
	245	Const CALLBACK_THREAD = (CALLBACK_TASK)'thread ID replaces 16 bit task
	246	Const CALLBACK_EVENT = &H00050000 'dwCallback is an EVENT Handle
	247
	248	TypeDef DRVCALLBACK = *Sub(hdrvr As HDRVR, uMsg As DWord, dwUser As DWord, dw1 As DWord, dw2 As DWord)
	249	TypeDef PDRVCALLBACK = *DRVCALLBACK
	250	TypeDef LPDRVCALLBACK = *DRVCALLBACK
	251
	252
	253	'--------------------------------------------------------
	254	' General MMSYSTEM support
	255
	256	Declare Function mmsystemGetVersion Lib "winmm" () As DWord
	257
	258
	259
	260	'--------------------------------------------------------
	261	' Sound support
	262
[158]	263	#ifdef UNICODE
	264	Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundW" (pszSound As PCWSTR, fuSound As DWord) As BOOL
	265	#else
	266	Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (pszSound As PCSTR, fuSound As DWord) As BOOL
	267	#endif
[1]	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
[158]	295	#ifdef UNICODE
	296	Declare Function PlaySound Lib "winmm" Alias "PlaySoundW" (pszSound As PCWSTR, hmod As HMODULE, fdwSound As DWord) As BOOL
	297	#else
	298	Declare Function PlaySound Lib "winmm" Alias "PlaySoundA" (pszSound As PCSTR, hmod As HMODULE, fdwSound As DWord) As BOOL
	299	#endif
[1]	300
	301
	302	'--------------------------------------------------------
	303	' Waveform audio support
	304
	305	' waveform audio error return values
	306	Const WAVERR_BADFORMAT = (WAVERR_BASE + 0)
	307	Const WAVERR_STILLPLAYING = (WAVERR_BASE + 1)
	308	Const WAVERR_UNPREPARED = (WAVERR_BASE + 2)
	309	Const WAVERR_SYNC = (WAVERR_BASE + 3)
	310	Const WAVERR_LASTERROR = (WAVERR_BASE + 3)
	311
	312	' waveform audio data types
	313	Type _System_DeclareHandle_HWAVE:unused As DWord:End Type
	314	TypeDef HWAVE = *_System_DeclareHandle_HWAVE
	315	Type _System_DeclareHandle_HWAVEIN:unused As DWord:End Type
	316	TypeDef HWAVEIN = *_System_DeclareHandle_HWAVEIN
	317	Type _System_DeclareHandle_HWAVEOUT:unused As DWord:End Type
	318	TypeDef HWAVEOUT = *_System_DeclareHandle_HWAVEOUT
	319
	320	TypeDef WAVECALLBACK = DRVCALLBACK
	321	TypeDef LPWAVECALLBACK = *WAVECALLBACK
	322
	323	' wave callback messages
	324	Const WOM_OPEN = MM_WOM_OPEN
	325	Const WOM_CLOSE = MM_WOM_CLOSE
	326	Const WOM_DONE = MM_WOM_DONE
	327	Const WIM_OPEN = MM_WIM_OPEN
	328	Const WIM_CLOSE = MM_WIM_CLOSE
	329	Const WIM_DATA = MM_WIM_DATA
	330
	331	' device ID for wave device mapper
	332	Const WAVE_MAPPER = (-1)
	333
	334	' flags for dwFlags parameter in waveOutOpen() and waveInOpen()
	335	Const WAVE_FORMAT_QUERY = &H0001
	336	Const WAVE_ALLOWSYNC = &H0002
	337	Const WAVE_MAPPED = &H0004
	338	Const WAVE_FORMAT_DIRECT = &H0008
	339	Const WAVE_FORMAT_DIRECT_QUERY = (WAVE_FORMAT_QUERY OR WAVE_FORMAT_DIRECT)
	340
	341	' wave data block header
	342	Type WAVEHDR
	343	lpData As LPSTR
	344	dwBufferLength As DWord
	345	dwBytesRecorded As DWord
	346	dwUser As DWord
	347	dwFlags As DWord
	348	dwLoops As DWord
	349	lpNext As *WAVEHDR
	350	reserved As DWord
	351	End Type
	352	TypeDef PWAVEHDR = *WAVEHDR
	353	TypeDef LPWAVEHDR = *WAVEHDR
	354
	355	' flags for dwFlags field of WAVEHDR
	356	Const WHDR_DONE = &H00000001
	357	Const WHDR_PREPARED = &H00000002
	358	Const WHDR_BEGINLOOP = &H00000004
	359	Const WHDR_ENDLOOP = &H00000008
	360	Const WHDR_INQUEUE = &H00000010
	361
	362	' waveform output device capabilities structure
[141]	363	Type WAVEOUTCAPSW
	364	wMid As Word
	365	wPid As Word
	366	vDriverVersion As MMVERSION
	367	szPname[ELM(MAXPNAMELEN)] As WCHAR
	368	dwFormats As DWord
	369	wChannels As Word
	370	wReserved1 As Word
	371	dwSupport As DWord
	372	End Type
	373	TypeDef PWAVEOUTCAPSW = *WAVEOUTCAPSW
	374	TypeDef LPWAVEOUTCAPSW = *WAVEOUTCAPSW
[158]	375
[1]	376	Type WAVEOUTCAPSA
	377	wMid As Word
	378	wPid As Word
	379	vDriverVersion As MMVERSION
[141]	380	szPname[ELM(MAXPNAMELEN)] As SByte
[1]	381	dwFormats As DWord
	382	wChannels As Word
	383	wReserved1 As Word
	384	dwSupport As DWord
	385	End Type
	386	TypeDef PWAVEOUTCAPSA = *WAVEOUTCAPSA
	387	TypeDef LPWAVEOUTCAPSA = *WAVEOUTCAPSA
[158]	388
[141]	389	#ifdef UNICODE
	390	TypeDef WAVEOUTCAPS = WAVEOUTCAPSW
[158]	391	TypeDef PWAVEOUTCAPS = PWAVEOUTCAPSW
	392	TypeDef LPWAVEOUTCAPS = LPWAVEOUTCAPSW
[141]	393	#else
[1]	394	TypeDef WAVEOUTCAPS = WAVEOUTCAPSA
[158]	395	TypeDef PWAVEOUTCAPS = PWAVEOUTCAPSA
	396	TypeDef LPWAVEOUTCAPS = LPWAVEOUTCAPSA
[141]	397	#endif
[1]	398
	399	' flags for dwSupport field of WAVEOUTCAPS
	400	Const WAVECAPS_PITCH = &H0001
	401	Const WAVECAPS_PLAYBACKRATE = &H0002
	402	Const WAVECAPS_VOLUME = &H0004
	403	Const WAVECAPS_LRVOLUME = &H0008
	404	Const WAVECAPS_SYNC = &H0010
	405	Const WAVECAPS_SAMPLEACCURATE = &H0020
	406	Const WAVECAPS_DIRECTSOUND = &H0040
	407
	408	' waveform input device capabilities structure
[141]	409	Type WAVEINCAPSW
	410	wMid As Word
	411	wPid As Word
	412	vDriverVersion As MMVERSION
	413	szPname[ELM(MAXPNAMELEN)] As WCHAR
	414	dwFormats As DWord
	415	wChannels As Word
	416	wReserved1 As Word
	417	End Type
	418	TypeDef PWAVEINCAPSW = *WAVEINCAPSW
	419	TypeDef LPWAVEINCAPSW = *WAVEINCAPSW
[158]	420
[1]	421	Type WAVEINCAPSA
	422	wMid As Word
	423	wPid As Word
	424	vDriverVersion As MMVERSION
[141]	425	szPname[ELM(MAXPNAMELEN)] As SByte
[1]	426	dwFormats As DWord
	427	wChannels As Word
	428	wReserved1 As Word
	429	End Type
	430	TypeDef PWAVEINCAPSA = *WAVEINCAPSA
	431	TypeDef LPWAVEINCAPSA = *WAVEINCAPSA
[158]	432
[141]	433	#ifdef UNICODE
	434	TypeDef WAVEINCAPS = WAVEINCAPSW
[158]	435	TypeDef PWAVEINCAPS = PWAVEINCAPSW
	436	TypeDef LPWAVEINCAPS = LPWAVEINCAPSW
[141]	437	#else
[1]	438	TypeDef WAVEINCAPS = WAVEINCAPSA
[158]	439	TypeDef PWAVEINCAPS = PWAVEINCAPSA
	440	TypeDef LPWAVEINCAPS = LPWAVEINCAPSA
[141]	441	#endif
[1]	442
	443	' defines for dwFormat field of WAVEINCAPS and WAVEOUTCAPS
	444	Const WAVE_INVALIDFORMAT = &H00000000 ' invalid format
[158]	445	Const WAVE_FORMAT_1M08 = &H00000001 ' 11.025 kHz, Mono, 8-bit
	446	Const WAVE_FORMAT_1S08 = &H00000002 ' 11.025 kHz, Stereo, 8-bit
[1]	447	Const WAVE_FORMAT_1M16 = &H00000004 ' 11.025 kHz, Mono, 16-bit
	448	Const WAVE_FORMAT_1S16 = &H00000008 ' 11.025 kHz, Stereo, 16-bit
[158]	449	Const WAVE_FORMAT_2M08 = &H00000010 ' 22.05 kHz, Mono, 8-bit
	450	Const WAVE_FORMAT_2S08 = &H00000020 ' 22.05 kHz, Stereo, 8-bit
[1]	451	Const WAVE_FORMAT_2M16 = &H00000040 ' 22.05 kHz, Mono, 16-bit
	452	Const WAVE_FORMAT_2S16 = &H00000080 ' 22.05 kHz, Stereo, 16-bit
[158]	453	Const WAVE_FORMAT_4M08 = &H00000100 ' 44.1 kHz, Mono, 8-bit
	454	Const WAVE_FORMAT_4S08 = &H00000200 ' 44.1 kHz, Stereo, 8-bit
[1]	455	Const WAVE_FORMAT_4M16 = &H00000400 ' 44.1 kHz, Mono, 16-bit
	456	Const WAVE_FORMAT_4S16 = &H00000800 ' 44.1 kHz, Stereo, 16-bit
	457
	458	' OLD general waveform format structure (information common to all formats)
	459	Type WAVEFORMAT
	460	wFormatTag As Word
	461	nChannels As Word
	462	nSamplesPerSec As DWord
	463	nAvgBytesPerSec As DWord
	464	nBlockAlign As Word
	465	End Type
	466	TypeDef PWAVEFORMAT = *WAVEFORMAT
	467	TypeDef LPWAVEFORMAT = *WAVEFORMAT
	468
	469	' flags for wFormatTag field of WAVEFORMAT
	470	Const WAVE_FORMAT_PCM = 1
	471
	472	' specific waveform format structure for PCM data
	473	Type PCMWAVEFORMAT
	474	wf As WAVEFORMAT
	475	wBitsPerSample As Word
	476	End Type
	477	TypeDef PPCMWAVEFORMAT = *PCMWAVEFORMAT
	478	TypeDef LPPCMWAVEFORMAT = *PCMWAVEFORMAT
	479
	480	Type WAVEFORMATEX
	481	wFormatTag As Word
	482	nChannels As Word
	483	nSamplesPerSec As DWord
	484	nAvgBytesPerSec As DWord
	485	nBlockAlign As Word
	486	wBitsPerSample As Word
	487	cbSize As Word
	488	End Type
	489	TypeDef PWAVEFORMATEX = *WAVEFORMATEX
	490	TypeDef LPWAVEFORMATEX = *WAVEFORMATEX
	491	TypeDef LPCWAVEFORMATEX = *WAVEFORMATEX
	492
	493	' waveform audio function prototypes
	494	Declare Function waveOutGetNumDevs Lib "winmm" () As DWord
[158]	495	#ifdef UNICODE
	496	Declare Function waveOutGetDevCaps Lib "winmm" Alias "waveOutGetDevCapsW" (uDeviceID As DWord, ByRef pwoc As WAVEOUTCAPSW, cbwoc As DWord) As MMRESULT
	497	#else
	498	Declare Function waveOutGetDevCaps Lib "winmm" Alias "waveOutGetDevCapsA" (uDeviceID As DWord, ByRef pwoc As WAVEOUTCAPS, cbwoc As DWord) As MMRESULT
	499	#endif
[1]	500	Declare Function waveOutGetVolume Lib "winmm" (hwo As HWAVEOUT, ByRef pdwVolume As DWord) As MMRESULT
	501	Declare Function waveOutSetVolume Lib "winmm" (hwo As HWAVEOUT, dwVolume As DWord) As MMRESULT
[158]	502	#ifdef UNICODE
	503	Declare Function waveOutGetErrorText Lib "winmm" Alias "waveOutGetErrorTextW" (mmrError As MMRESULT, pszText As LPWSTR, cchText As DWord) As MMRESULT
	504	#else
	505	Declare Function waveOutGetErrorText Lib "winmm" Alias "waveOutGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
	506	#endif
[1]	507	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
	508	Declare Function waveOutClose Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
	509	Declare Function waveOutPrepareHeader Lib "winmm" (hwo As HWAVEOUT, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
	510	Declare Function waveOutUnprepareHeader Lib "winmm" (hwo As HWAVEOUT, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
	511	Declare Function waveOutWrite Lib "winmm" (hwo As HWAVEOUT, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
	512	Declare Function waveOutPause Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
	513	Declare Function waveOutRestart Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
	514	Declare Function waveOutReset Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
	515	Declare Function waveOutBreakLoop Lib "winmm" (hwo As HWAVEOUT) As MMRESULT
	516	Declare Function waveOutGetPosition Lib "winmm" (hwo As HWAVEOUT, ByRef pmmt As MMTIME, cbmmt As DWord) As MMRESULT
	517	Declare Function waveOutGetPitch Lib "winmm" (hwo As HWAVEOUT, ByRef pdwPitch As DWord) As MMRESULT
	518	Declare Function waveOutSetPitch Lib "winmm" (hwo As HWAVEOUT, dwPitch As DWord) As MMRESULT
	519	Declare Function waveOutGetPlaybackRate Lib "winmm" (hwo As HWAVEOUT, ByRef pdwRate As DWord) As MMRESULT
	520	Declare Function waveOutSetPlaybackRate Lib "winmm" (hwo As HWAVEOUT, dwRate As DWord) As MMRESULT
	521	Declare Function waveOutGetID Lib "winmm" (hwo As HWAVEOUT, ByRef puDeviceID As DWord) As MMRESULT
	522	Declare Function waveOutMessage Lib "winmm" (hwo As HWAVEOUT, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
	523
	524	Declare Function waveInGetNumDevs Lib "winmm" () As DWord
[158]	525	#ifdef UNICODE
	526	Declare Function waveInGetDevCaps Lib "winmm" Alias "waveInGetDevCapsW" (uDeviceID As DWord, ByRef pwic As WAVEINCAPSW, cbwic As DWord) As MMRESULT
	527	Declare Function waveInGetErrorText Lib "winmm" Alias "waveInGetErrorTextW" (mmrError As MMRESULT, pszText As LPWSTR, cchText As DWord) As MMRESULT
	528	#else
	529	Declare Function waveInGetDevCaps Lib "winmm" Alias "waveInGetDevCapsA" (uDeviceID As DWord, ByRef pwic As WAVEINCAPS, cbwic As DWord) As MMRESULT
	530	Declare Function waveInGetErrorText Lib "winmm" Alias "waveInGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
	531	#endif
[1]	532	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
	533	Declare Function waveInClose Lib "winmm" (hwi As HWAVEIN) As MMRESULT
	534	Declare Function waveInPrepareHeader Lib "winmm" (hwi As HWAVEIN, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
	535	Declare Function waveInUnprepareHeader Lib "winmm" (hwi As HWAVEIN, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
	536	Declare Function waveInAddBuffer Lib "winmm" (hwi As HWAVEIN, ByRef pwh As WAVEHDR, cbwh As DWord) As MMRESULT
	537	Declare Function waveInStart Lib "winmm" (hwi As HWAVEIN) As MMRESULT
	538	Declare Function waveInStop Lib "winmm" (hwi As HWAVEIN) As MMRESULT
	539	Declare Function waveInReset Lib "winmm" (hwi As HWAVEIN) As MMRESULT
	540	Declare Function waveInGetPosition Lib "winmm" (hwi As HWAVEIN, ByRef pmmt As MMTIME, cbmmt As DWord) As MMRESULT
	541	Declare Function waveInGetID Lib "winmm" (hwi As HWAVEIN, ByRef puDeviceID As DWord) As MMRESULT
	542	Declare Function waveInMessage Lib "winmm" (hwi As HWAVEIN, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
	543
	544
	545
	546	'--------------------------------------------------------
	547	' MIDI audio support
	548
	549	' MIDI error return values
	550	Const MIDIERR_UNPREPARED = (MIDIERR_BASE + 0)
	551	Const MIDIERR_STILLPLAYING = (MIDIERR_BASE + 1)
	552	Const MIDIERR_NOMAP = (MIDIERR_BASE + 2)
	553	Const MIDIERR_NOTREADY = (MIDIERR_BASE + 3)
	554	Const MIDIERR_NODEVICE = (MIDIERR_BASE + 4)
	555	Const MIDIERR_INVALIDSETUP = (MIDIERR_BASE + 5)
	556	Const MIDIERR_BADOPENMODE = (MIDIERR_BASE + 6)
	557	Const MIDIERR_DONT_CONTINUE = (MIDIERR_BASE + 7)
	558	Const MIDIERR_LASTERROR = (MIDIERR_BASE + 7)
	559
	560	' MIDI audio data types
	561	Type _System_DeclareHandle_HMIDI:unused As DWord:End Type
	562	TypeDef HMIDI = *_System_DeclareHandle_HMIDI
	563	Type _System_DeclareHandle_HMIDIIN:unused As DWord:End Type
	564	TypeDef HMIDIIN = *_System_DeclareHandle_HMIDIIN
	565	Type _System_DeclareHandle_HMIDIOUT:unused As DWord:End Type
	566	TypeDef HMIDIOUT = *_System_DeclareHandle_HMIDIOUT
	567	Type _System_DeclareHandle_HMIDISTRM:unused As DWord:End Type
	568	TypeDef HMIDISTRM = *_System_DeclareHandle_HMIDISTRM
	569
	570	TypeDef MIDICALLBACK = DRVCALLBACK
	571	TypeDef LPMIDICALLBACK = *MIDICALLBACK
	572
	573	Const MIDIPATCHSIZE = 128
	574
	575	TypeDef LPPATCHARRAY = *Word
	576	TypeDef LPKEYARRAY = *Word
	577
	578	' MIDI callback messages
	579	Const MIM_OPEN = MM_MIM_OPEN
	580	Const MIM_CLOSE = MM_MIM_CLOSE
	581	Const MIM_DATA = MM_MIM_DATA
	582	Const MIM_LONGDATA = MM_MIM_LONGDATA
	583	Const MIM_ERROR = MM_MIM_ERROR
	584	Const MIM_LONGERROR = MM_MIM_LONGERROR
	585	Const MOM_OPEN = MM_MOM_OPEN
	586	Const MOM_CLOSE = MM_MOM_CLOSE
	587	Const MOM_DONE = MM_MOM_DONE
	588	Const MIM_MOREDATA = MM_MIM_MOREDATA
	589	Const MOM_POSITIONCB = MM_MOM_POSITIONCB
	590
	591	' device ID for MIDI mapper
	592	Const MIDIMAPPER = (-1)
	593	Const MIDI_MAPPER = (-1)
	594
	595	Const MIDI_IO_STATUS = &H00000020
	596
	597	' flags for wFlags parm of midiOutCachePatches(), midiOutCacheDrumPatches()
	598	Const MIDI_CACHE_ALL = 1
	599	Const MIDI_CACHE_BESTFIT = 2
	600	Const MIDI_CACHE_QUERY = 3
	601	Const MIDI_UNCACHE = 4
	602
	603	' MIDI output device capabilities structure
[141]	604	Type MIDIOUTCAPSW
	605	wMid As Word
	606	wPid As Word
	607	vDriverVersion As MMVERSION
	608	szPname[ELM(MAXPNAMELEN)] As WCHAR
	609	wTechnology As Word
	610	wVoices As Word
	611	wNotes As Word
	612	wChannelMask As Word
	613	dwSupport As DWord
	614	End Type
	615	TypeDef PMIDIOUTCAPSW = *MIDIOUTCAPSW
	616	TypeDef LPMIDIOUTCAPSW = *MIDIOUTCAPSW
[158]	617
[1]	618	Type MIDIOUTCAPSA
	619	wMid As Word
	620	wPid As Word
	621	vDriverVersion As MMVERSION
[141]	622	szPname[ELM(MAXPNAMELEN)] As SByte
[1]	623	wTechnology As Word
	624	wVoices As Word
	625	wNotes As Word
	626	wChannelMask As Word
	627	dwSupport As DWord
	628	End Type
	629	TypeDef PMIDIOUTCAPSA = *MIDIOUTCAPSA
	630	TypeDef LPMIDIOUTCAPSA = *MIDIOUTCAPSA
	631
[141]	632	#ifdef UNICODE
	633	TypeDef MIDIOUTCAPS = MIDIOUTCAPSW
[158]	634	TypeDef PMIDIOUTCAPS = PMIDIOUTCAPSW
	635	TypeDef LPMIDIOUTCAPS = LPMIDIOUTCAPSW
[141]	636	#else
[1]	637	TypeDef MIDIOUTCAPS = MIDIOUTCAPSA
[158]	638	TypeDef PMIDIOUTCAPS = PMIDIOUTCAPSA
	639	TypeDef LPMIDIOUTCAPS = LPMIDIOUTCAPSA
[141]	640	#endif
[1]	641
	642	' flags for wTechnology field of MIDIOUTCAPS structure
	643	Const MOD_MIDIPORT = 1
	644	Const MOD_SYNTH = 2
	645	Const MOD_SQSYNTH = 3
	646	Const MOD_FMSYNTH = 4
	647	Const MOD_MAPPER = 5
	648
	649	' flags for dwSupport field of MIDIOUTCAPS structure
	650	Const MIDICAPS_VOLUME = &H0001
	651	Const MIDICAPS_LRVOLUME = &H0002
	652	Const MIDICAPS_CACHE = &H0004
	653	Const MIDICAPS_STREAM = &H0008
	654
	655	' MIDI input device capabilities structure
[141]	656	Type MIDIINCAPSW
	657	wMid As Word
	658	wPid As Word
	659	vDriverVersion As MMVERSION
[158]	660	szPname[ELM(MAXPNAMELEN)] As Char
[141]	661	dwSupport As DWord
	662	End Type
	663	TypeDef PMIDIINCAPSW = *MIDIINCAPSW
	664	TypeDef LPMIDIINCAPSW = *MIDIINCAPSW
[158]	665
[1]	666	Type MIDIINCAPSA
	667	wMid As Word
	668	wPid As Word
	669	vDriverVersion As MMVERSION
[158]	670	szPname[ELM(MAXPNAMELEN)] As Char
[1]	671	dwSupport As DWord
	672	End Type
	673	TypeDef PMIDIINCAPSA = *MIDIINCAPSA
	674	TypeDef LPMIDIINCAPSA = *MIDIINCAPSA
[158]	675
[141]	676	#ifdef UNICODE
	677	TypeDef MIDIINCAPS = MIDIINCAPSW
[158]	678	TypeDef PMIDIINCAPS = PMIDIINCAPSW
	679	TypeDef LPMIDIINCAPS = LPMIDIINCAPSW
[141]	680	#else
[1]	681	TypeDef MIDIINCAPS = MIDIINCAPSA
[158]	682	TypeDef PMIDIINCAPS = PMIDIINCAPSA
	683	TypeDef LPMIDIINCAPS = LPMIDIINCAPSA
[141]	684	#endif
[1]	685
	686	' MIDI data block header
	687	Type MIDIHDR
	688	lpData As LPSTR
	689	dwBufferLength As DWord
	690	dwBytesRecorded As DWord
	691	dwUser As DWord
	692	dwFlags As DWord
	693	lpNext As *MIDIHDR
	694	reserved As DWord
	695	dwOffset As DWord
	696	dwReserved[ELM(8)] As DWord
	697	End Type
	698	TypeDef PMIDIHDR = *MIDIHDR
	699	TypeDef LPMIDIHDR = *MIDIHDR
	700
	701	Type MIDIEVENT
	702	dwDeltaTime As DWord
	703	dwStreamID As DWord
	704	dwEvent As DWord
	705	dwParms[ELM(1)] As DWord
	706	End Type
	707
	708	Type MIDISTRMBUFFVER
	709	dwVersion As DWord
	710	dwMid As DWord
	711	dwOEMVersion As DWord
	712	End Type
	713
	714	' flags for dwFlags field of MIDIHDR structure
	715	Const MHDR_DONE = &H00000001
	716	Const MHDR_PREPARED = &H00000002
	717	Const MHDR_INQUEUE = &H00000004
	718	Const MHDR_ISSTRM = &H00000008
	719
	720	Const MEVT_F_SHORT = &H00000000
	721	Const MEVT_F_LONG = &H80000000
	722	Const MEVT_F_CALLBACK = &H40000000
	723	Const MEVT_EVENTTYPE(x) = ((x>>24) AND &HFF)
	724	Const MEVT_EVENTPARM(x) = (x AND &H00FFFFFF)
	725	Const MEVT_SHORTMSG = (&H00)
	726	Const MEVT_TEMPO = (&H01)
	727	Const MEVT_NOP = (&H02)
	728	Const MEVT_LONGMSG = (&H80)
	729	Const MEVT_COMMENT = (&H82)
	730	Const MEVT_VERSION = (&H84)
	731
	732	Const MIDISTRM_ERROR = (-2)
	733
	734	' Structures and defines for midiStreamProperty
	735	Const MIDIPROP_SET = &H80000000
	736	Const MIDIPROP_GET = &H40000000
	737	Const MIDIPROP_TIMEDIV = &H00000001
	738	Const MIDIPROP_TEMPO = &H00000002
	739
	740	Type MIDIPROPTIMEDIV
	741	cbStruct As DWord
	742	dwTimeDiv As DWord
	743	End Type
	744	TypeDef LPMIDIPROPTIMEDIV = *MIDIPROPTIMEDIV
	745
	746	Type MIDIPROPTEMPO
	747	cbStruct As DWord
	748	dwTempo As DWord
	749	End Type
	750	TypeDef LPMIDIPROPTEMPO = *MIDIPROPTEMPO
	751
	752
	753	' MIDI function prototypes
	754	Declare Function midiOutGetNumDevs Lib "winmm" () As DWord
	755	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
	756	Declare Function midiStreamClose Lib "winmm" (hms As HMIDISTRM) As MMRESULT
	757	Declare Function midiStreamProperty Lib "winmm" (hms As HMIDISTRM, lppropdata As *Byte, dwProperty As DWord) As MMRESULT
	758	Declare Function midiStreamPosition Lib "winmm" (hms As HMIDISTRM, ByRef lpmmt As MMTIME, cbmmt As DWord) As MMRESULT
	759	Declare Function midiStreamOut Lib "winmm" (hms As HMIDISTRM, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	760	Declare Function midiStreamPause Lib "winmm" (hms As HMIDISTRM) As MMRESULT
	761	Declare Function midiStreamRestart Lib "winmm" (hms As HMIDISTRM) As MMRESULT
	762	Declare Function midiStreamStop Lib "winmm" (hms As HMIDISTRM) As MMRESULT
	763
	764	Declare Function midiConnect Lib "winmm" (hmi As HMIDI, hmo As HMIDIOUT, pReserved As VoidPtr) As MMRESULT
	765	Declare Function midiDisconnect Lib "winmm" (hmi As HMIDI, hmo As HMIDIOUT, pReserved As VoidPtr) As MMRESULT
[158]	766	#ifdef UNICODE
	767	Declare Function midiOutGetDevCaps Lib "winmm" Alias "midiOutGetDevCapsW" (uDeviceID As DWord, ByRef pmoc As MIDIOUTCAPSW, cbmoc As DWord) As MMRESULT
	768	#else
	769	Declare Function midiOutGetDevCaps Lib "winmm" Alias "midiOutGetDevCapsA" (uDeviceID As DWord, ByRef pmoc As MIDIOUTCAPS, cbmoc As DWord) As MMRESULT
	770	#endif
[1]	771	Declare Function midiOutGetVolume Lib "winmm" (hmo As HMIDIOUT, ByRef pdwVolume As DWord) As MMRESULT
	772	Declare Function midiOutSetVolume Lib "winmm" (hmo As HMIDIOUT, dwVolume As DWord) As MMRESULT
[158]	773	#ifdef UNICODE
	774	Declare Function midiOutGetErrorText Lib "winmm" Alias "midiOutGetErrorTextW" (mmrError As MMRESULT, pszText As LPWSTR, cchText As DWord) As MMRESULT
	775	#else
	776	Declare Function midiOutGetErrorText Lib "winmm" Alias "midiOutGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
	777	#endif
[1]	778	Declare Function midiOutOpen Lib "winmm" (ByRef phmo As HMIDIOUT, uDeviceID As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
	779	Declare Function midiOutClose Lib "winmm" (hmo As HMIDIOUT) As MMRESULT
	780	Declare Function midiOutPrepareHeader Lib "winmm" (hmo As HMIDIOUT, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	781	Declare Function midiOutUnprepareHeader Lib "winmm" (hmo As HMIDIOUT, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	782	Declare Function midiOutShortMsg Lib "winmm" (hmo As HMIDIOUT, dwMsg As DWord) As MMRESULT
	783	Declare Function midiOutLongMsg Lib "winmm" (hmo As HMIDIOUT, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	784	Declare Function midiOutReset Lib "winmm" (hmo As HMIDIOUT) As MMRESULT
	785	Declare Function midiOutCachePatches Lib "winmm" (hmo As HMIDIOUT, uBank As DWord, ByRef pwpa As Word, fuCache As DWord) As MMRESULT
	786	Declare Function midiOutCacheDrumPatches Lib "winmm" (hmo As HMIDIOUT, uPatch As DWord, ByRef pwkya As Word, fuCache As DWord) As MMRESULT
	787	Declare Function midiOutGetID Lib "winmm" (hmo As HMIDIOUT, ByRef puDeviceID As DWord) As MMRESULT
	788	Declare Function midiOutMessage Lib "winmm" (hmo As HMIDIOUT, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
	789
	790	Declare Function midiInGetNumDevs Lib "winmm" () As DWord
[158]	791	#ifdef UNICODE
	792	Declare Function midiInGetDevCaps Lib "winmm" Alias "midiInGetDevCapsW" (uDeviceID As DWord, ByRef pmic As MIDIINCAPSW, cbmic As DWord) As MMRESULT
	793	Declare Function midiInGetErrorText Lib "winmm" Alias "midiInGetErrorTextW" (mmrError As MMRESULT, pszText As LPWSTR, cchText As DWord) As MMRESULT
	794	#else
	795	Declare Function midiInGetDevCaps Lib "winmm" Alias "midiInGetDevCapsA" (uDeviceID As DWord, ByRef pmic As MIDIINCAPS, cbmic As DWord) As MMRESULT
	796	Declare Function midiInGetErrorText Lib "winmm" Alias "midiInGetErrorTextA" (mmrError As MMRESULT, pszText As LPSTR, cchText As DWord) As MMRESULT
	797	#endif
[1]	798	Declare Function midiInOpen Lib "winmm" (ByRef phmi As HMIDIIN, uDeviceID As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
	799	Declare Function midiInClose Lib "winmm" (hmi As HMIDIIN) As MMRESULT
	800	Declare Function midiInPrepareHeader Lib "winmm" (hmi As HMIDIIN, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	801	Declare Function midiInUnprepareHeader Lib "winmm" (hmi As HMIDIIN, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	802	Declare Function midiInAddBuffer Lib "winmm" (hmi As HMIDIIN, ByRef pmh As MIDIHDR, cbmh As DWord) As MMRESULT
	803	Declare Function midiInStart Lib "winmm" (hmi As HMIDIIN) As MMRESULT
	804	Declare Function midiInStop Lib "winmm" (hmi As HMIDIIN) As MMRESULT
	805	Declare Function midiInReset Lib "winmm" (hmi As HMIDIIN) As MMRESULT
	806	Declare Function midiInGetID Lib "winmm" (hmi As HMIDIIN, ByRef puDeviceID As DWord) As MMRESULT
	807	Declare Function midiInMessage Lib "winmm" (hmi As HMIDIIN, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
	808
	809
[75]	810	'--------------------------------------------------------
	811	' Auxiliary audio support
[1]	812
[75]	813	' device ID for aux device mapper
	814	Const AUX_MAPPER = (-1)
	815
	816	' Auxiliary audio device capabilities structure
[141]	817	Type AUXCAPSW
	818	wMid As Word
	819	wPid As Word
	820	vDriverVersion As MMVERSION
	821	szPname[ELM(MAXPNAMELEN)] As WCHAR
	822	wTechnology As Word
	823	wReserved1 As Word
	824	dwSupport As DWord
	825	End Type
	826	TypeDef PAUXCAPSW = *AUXCAPSW
	827	TypeDef NPAUXCAPSW = *AUXCAPSW
	828	TypeDef LPAUXCAPSW = *AUXCAPSW
[158]	829
[75]	830	Type AUXCAPSA
	831	wMid As Word
	832	wPid As Word
	833	vDriverVersion As MMVERSION
[141]	834	szPname[ELM(MAXPNAMELEN)] As SByte
[75]	835	wTechnology As Word
	836	wReserved1 As Word
	837	dwSupport As DWord
	838	End Type
	839	TypeDef PAUXCAPSA = *AUXCAPSA
	840	TypeDef NPAUXCAPSA = *AUXCAPSA
	841	TypeDef LPAUXCAPSA = *AUXCAPSA
[158]	842
[141]	843	#ifdef UNICODE
[158]	844	TypeDef AUXCAPS = AUXCAPSW
	845	TypeDef PAUXCAPS = PAUXCAPSW
	846	TypeDef NPAUXCAPS = NPAUXCAPSW
	847	TypeDef LPAUXCAPS = LPAUXCAPSW
[141]	848	#else
	849	TypeDef AUXCAPS = AUXCAPSA
[158]	850	TypeDef PAUXCAPS = PAUXCAPSA
	851	TypeDef NPAUXCAPS = NPAUXCAPSA
	852	TypeDef LPAUXCAPS = LPAUXCAPSA
[141]	853	#endif
[75]	854
	855	Const AUXCAPS_CDAUDIO = 1
	856	Const AUXCAPS_AUXIN = 2
	857
	858	Const AUXCAPS_VOLUME = &H0001
	859	Const AUXCAPS_LRVOLUME = &H0002
	860
	861	' auxiliary audio function prototypes
	862	Declare Function auxGetNumDevs Lib "winmm" () As DWord
[158]	863	#ifdef UNICODE
	864	Declare Function auxGetDevCaps Lib "winmm" Alias "auxGetDevCapsW" (uDeviceID As DWord, pac As *AUXCAPSW, cbac As DWord) As MMRESULT
	865	#else
	866	Declare Function auxGetDevCaps Lib "winmm" Alias "auxGetDevCapsA" (uDeviceID As DWord, pac As *AUXCAPS, cbac As DWord) As MMRESULT
	867	#endif
[75]	868	Declare Function auxSetVolume Lib "winmm" (uDeviceID As DWord, dwVolume As DWord) As MMRESULT
	869	Declare Function auxGetVolume Lib "winmm" (uDeviceID As DWord, pdwVolume As *DWord) As MMRESULT
	870	Declare Function auxOutMessage Lib "winmm" (uDeviceID As DWord, uMsg As DWord, dw1 As DWord, dw2 As DWord) As MMRESULT
	871
	872
[1]	873	'--------------------------------------------------------
[75]	874	' Mixer Support
	875
	876	TypeDef HMIXEROBJ = VoidPtr
	877	TypeDef LPHMIXEROBJ = HMIXEROBJ
	878	TypeDef HMIXER = VoidPtr
	879	TypeDef LPHMIXER = *HMIXER
	880
	881	Const MIXER_SHORT_NAME_CHARS = 16
	882	Const MIXER_LONG_NAME_CHARS = 64
	883
	884	Const MIXERR_INVALLINE = (MIXERR_BASE + 0)
	885	Const MIXERR_INVALCONTROL = (MIXERR_BASE + 1)
	886	Const MIXERR_INVALVALUE = (MIXERR_BASE + 2)
	887	Const MIXERR_LASTERROR = (MIXERR_BASE + 2)
	888
	889	Const MIXER_OBJECTF_HANDLE = &H80000000
	890	Const MIXER_OBJECTF_MIXER = &H00000000
	891	Const MIXER_OBJECTF_HMIXER = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_MIXER)
	892	Const MIXER_OBJECTF_WAVEOUT = &H10000000
	893	Const MIXER_OBJECTF_HWAVEOUT = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_WAVEOUT)
	894	Const MIXER_OBJECTF_WAVEIN = &H20000000
	895	Const MIXER_OBJECTF_HWAVEIN = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_WAVEIN)
	896	Const MIXER_OBJECTF_MIDIOUT = &H30000000
	897	Const MIXER_OBJECTF_HMIDIOUT = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_MIDIOUT)
	898	Const MIXER_OBJECTF_MIDIIN = &H40000000
	899	Const MIXER_OBJECTF_HMIDIIN = (MIXER_OBJECTF_HANDLE OR MIXER_OBJECTF_MIDIIN)
	900	Const MIXER_OBJECTF_AUX = &H50000000
	901
	902	Declare Function mixerGetNumDevs Lib "winmm" () As DWord
	903
[141]	904	Type MIXERCAPSW
	905	wMid As Word
	906	wPid As Word
	907	vDriverVersion As MMVERSION
	908	szPname[ELM(MAXPNAMELEN)] As WCHAR
	909	fdwSupport As DWord
	910	cDestinations As DWord
	911	End Type
	912	TypeDef PMIXERCAPSW = *MIXERCAPSW
	913	TypeDef LPMIXERCAPSW = *MIXERCAPSW
[158]	914
[75]	915	Type MIXERCAPSA
	916	wMid As Word
	917	wPid As Word
	918	vDriverVersion As MMVERSION
[158]	919	szPname[ELM(MAXPNAMELEN)] As SByte
[75]	920	fdwSupport As DWord
	921	cDestinations As DWord
	922	End Type
	923	TypeDef PMIXERCAPSA = *MIXERCAPSA
	924	TypeDef LPMIXERCAPSA = *MIXERCAPSA
[158]	925
[141]	926	#ifdef UNICODE
	927	TypeDef MIXERCAPS = MIXERCAPSW
[158]	928	TypeDef PMIXERCAPS = PMIXERCAPSW
	929	TypeDef LPMIXERCAPS = LPMIXERCAPSW
	930	Declare Function mixerGetDevCaps Lib "winmm" Alias "mixerGetDevCapsW" (uMxId As DWord, pmxcaps As *MIXERCAPSW, cbmxcaps As DWord) As MMRESULT
[141]	931	#else
[75]	932	TypeDef MIXERCAPS = MIXERCAPSA
[158]	933	TypeDef PMIXERCAPS = PMIXERCAPSA
	934	TypeDef LPMIXERCAPS = LPMIXERCAPSA
	935	Declare Function mixerGetDevCaps Lib "winmm" Alias "mixerGetDevCapsA" (uMxId As DWord, pmxcaps As *MIXERCAPS, cbmxcaps As DWord) As MMRESULT
[141]	936	#endif
[75]	937
	938	Declare Function mixerOpen Lib "winmm" (phmx As *HMIXER, uMxId As DWord, dwCallback As DWord, dwInstance As DWord, fdwOpen As DWord) As MMRESULT
	939	Declare Function mixerClose Lib "winmm" (hmx As HMIXER) As MMRESULT
	940	Declare Function mixerMessage Lib "winmm" (hmx As HMIXER, uMsg As DWord, dwParam1 As DWord, dwParam2 As DWord) As DWord
	941
[158]	942	#ifdef UNICODE
	943	Type TARGET
[75]	944	dwType As DWord
	945	dwDeviceID As DWord
	946	wMid As Word
	947	wPid As Word
	948	vDriverVersion As MMVERSION
[141]	949	szPname[ELM(MAXPNAMELEN)] As WCHAR
[75]	950	End Type
[158]	951	#else
	952	Type TARGET
	953	dwType As DWord
	954	dwDeviceID As DWord
	955	wMid As Word
	956	wPid As Word
	957	vDriverVersion As MMVERSION
	958	szPname[ELM(MAXPNAMELEN)] As SByte
	959	End Type
	960	#endif
[75]	961
[141]	962	Type MIXERLINEW
	963	cbStruct As DWord
	964	dwDestination As DWord
	965	dwSource As DWord
	966	dwLineID As DWord
	967	fdwLine As DWord
	968	dwUser As DWord
	969	dwComponentType As DWord
	970	cChannels As DWord
	971	cConnections As DWord
	972	cControls As DWord
	973	szShortName[ELM(MIXER_SHORT_NAME_CHARS)] As WCHAR
	974	szName[ELM(MIXER_LONG_NAME_CHARS)] As WCHAR
[158]	975	Target As TARGET
[141]	976	End Type
	977	TypeDef PMIXERLINEW = *MIXERLINEW
	978	TypeDef LPMIXERLINEW = *MIXERLINEW
	979
[75]	980	Type MIXERLINEA
	981	cbStruct As DWord
	982	dwDestination As DWord
	983	dwSource As DWord
	984	dwLineID As DWord
	985	fdwLine As DWord
	986	dwUser As DWord
	987	dwComponentType As DWord
	988	cChannels As DWord
	989	cConnections As DWord
	990	cControls As DWord
[141]	991	szShortName[ELM(MIXER_SHORT_NAME_CHARS)] As SByte
	992	szName[ELM(MIXER_LONG_NAME_CHARS)] As SByte
[158]	993	Target As TARGET
[75]	994	End Type
	995	TypeDef PMIXERLINEA = *MIXERLINEA
	996	TypeDef LPMIXERLINEA = *MIXERLINEA
[158]	997
[141]	998	#ifdef UNICODE
[158]	999	TypeDef MIXERLINE = MIXERLINEA
	1000	TypeDef PMIXERLINE = PMIXERLINEA
	1001	TypeDef LPMIXERLINE = LPMIXERLINEA
	1002	#else
[141]	1003	TypeDef MIXERLINE = MIXERLINEW
[158]	1004	TypeDef PMIXERLINE = PMIXERLINEW
	1005	TypeDef LPMIXERLINE = LPMIXERLINEW
[141]	1006	#endif
[75]	1007
	1008	' MIXERLINE.fdwLine
	1009	Const MIXERLINE_LINEF_ACTIVE = &H00000001
	1010	Const MIXERLINE_LINEF_DISCONNECTED = &H00008000
	1011	Const MIXERLINE_LINEF_SOURCE = &H80000000
	1012
	1013	' MIXERLINE.dwComponentType
	1014	Const MIXERLINE_COMPONENTTYPE_DST_FIRST = &H00000000
	1015	Const MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 0)
	1016	Const MIXERLINE_COMPONENTTYPE_DST_DIGITAL = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 1)
	1017	Const MIXERLINE_COMPONENTTYPE_DST_LINE = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 2)
	1018	Const MIXERLINE_COMPONENTTYPE_DST_MONITOR = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 3)
	1019	Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
	1020	Const MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 5)
	1021	Const MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 6)
	1022	Const MIXERLINE_COMPONENTTYPE_DST_WAVEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 7)
	1023	Const MIXERLINE_COMPONENTTYPE_DST_VOICEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8)
	1024	Const MIXERLINE_COMPONENTTYPE_DST_LAST = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8)
	1025
	1026	Const MIXERLINE_COMPONENTTYPE_SRC_FIRST = &H00001000
	1027	Const MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 0)
	1028	Const MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 1)
	1029	Const MIXERLINE_COMPONENTTYPE_SRC_LINE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2)
	1030	Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3)
	1031	Const MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 4)
	1032	Const MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 5)
	1033	Const MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 6)
	1034	Const MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 7)
	1035	Const MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8)
	1036	Const MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 9)
	1037	Const MIXERLINE_COMPONENTTYPE_SRC_ANALOG = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10)
	1038	Const MIXERLINE_COMPONENTTYPE_SRC_LAST = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10)
	1039
	1040	' MIXERLINE.Target.dwType
	1041	Const MIXERLINE_TARGETTYPE_UNDEFINED = 0
	1042	Const MIXERLINE_TARGETTYPE_WAVEOUT = 1
	1043	Const MIXERLINE_TARGETTYPE_WAVEIN = 2
	1044	Const MIXERLINE_TARGETTYPE_MIDIOUT = 3
	1045	Const MIXERLINE_TARGETTYPE_MIDIIN = 4
	1046	Const MIXERLINE_TARGETTYPE_AUX = 5
	1047
[158]	1048	#ifdef UNICODE
	1049	Declare Function mixerGetLineInfo Lib "winmm" Alias "mixerGetLineInfoW" (hmxobj As HMIXEROBJ, pmxl As *MIXERLINEW, fdwInfo As DWord) As MMRESULT
	1050	#else
	1051	Declare Function mixerGetLineInfo Lib "winmm" Alias "mixerGetLineInfoA" (hmxobj As HMIXEROBJ, pmxl As *MIXERLINE, fdwInfo As DWord) As MMRESULT
	1052	#endif
[75]	1053
	1054	Const MIXER_GETLINEINFOF_DESTINATION = &H00000000
	1055	Const MIXER_GETLINEINFOF_SOURCE = &H00000001
	1056	Const MIXER_GETLINEINFOF_LINEID = &H00000002
	1057	Const MIXER_GETLINEINFOF_COMPONENTTYPE = &H00000003
	1058	Const MIXER_GETLINEINFOF_TARGETTYPE = &H00000004
	1059	Const MIXER_GETLINEINFOF_QUERYMASK = &H0000000F
	1060
	1061	Declare Function mixerGetID Lib "winmm" (hmxobj As HMIXEROBJ, puMxId As *DWord, fdwId As DWord) As MMRESULT
	1062
[141]	1063	Type MIXERCONTROLW
	1064	cbStruct As DWord
	1065	dwControlID As DWord
	1066	dwControlType As DWord
	1067	fdwControl As DWord
	1068	cMultipleItems As DWord
	1069	szShortName[ELM(MIXER_SHORT_NAME_CHARS)] As WCHAR
	1070	szName[ELM(MIXER_LONG_NAME_CHARS)] As WCHAR
	1071	Bounds[ELM(6)] As DWord
	1072	Metrics[ELM(6)] As DWord
	1073	End Type
	1074	TypeDef PMIXERCONTROLW = *MIXERCONTROLW
	1075	TypeDef LPMIXERCONTROLW = *MIXERCONTROLW
[158]	1076
[75]	1077	Type MIXERCONTROLA
	1078	cbStruct As DWord
	1079	dwControlID As DWord
	1080	dwControlType As DWord
	1081	fdwControl As DWord
	1082	cMultipleItems As DWord
[141]	1083	szShortName[ELM(MIXER_SHORT_NAME_CHARS)] As SByte
	1084	szName[ELM(MIXER_LONG_NAME_CHARS)] As SByte
[75]	1085	Bounds[ELM(6)] As DWord
	1086	Metrics[ELM(6)] As DWord
	1087	End Type
	1088	TypeDef PMIXERCONTROLA = *MIXERCONTROLA
	1089	TypeDef LPMIXERCONTROLA = *MIXERCONTROLA
[158]	1090
[141]	1091	#ifdef UNICODE
	1092	TypeDef MIXERCONTROL = MIXERCONTROLW
[158]	1093	TypeDef PMIXERCONTROL = PMIXERCONTROLW
	1094	TypeDef LPMIXERCONTROL = LPMIXERCONTROLW
[141]	1095	#else
[75]	1096	TypeDef MIXERCONTROL = MIXERCONTROLA
[158]	1097	TypeDef PMIXERCONTROL = PMIXERCONTROLA
	1098	TypeDef LPMIXERCONTROL = LPMIXERCONTROLA
[141]	1099	#endif
[75]	1100
	1101	' MIXERCONTROL.fdwControl
	1102	Const MIXERCONTROL_CONTROLF_UNIFORM = &H00000001
	1103	Const MIXERCONTROL_CONTROLF_MULTIPLE = &H00000002
	1104	Const MIXERCONTROL_CONTROLF_DISABLED = &H80000000
	1105
	1106	' MIXERCONTROL_CONTROLTYPE_xxx
	1107	Const MIXERCONTROL_CT_CLASS_MASK = &HF0000000
	1108	Const MIXERCONTROL_CT_CLASS_CUSTOM = &H00000000
	1109	Const MIXERCONTROL_CT_CLASS_METER = &H10000000
	1110	Const MIXERCONTROL_CT_CLASS_SWITCH = &H20000000
	1111	Const MIXERCONTROL_CT_CLASS_NUMBER = &H30000000
	1112	Const MIXERCONTROL_CT_CLASS_SLIDER = &H40000000
	1113	Const MIXERCONTROL_CT_CLASS_FADER = &H50000000
	1114	Const MIXERCONTROL_CT_CLASS_TIME = &H60000000
	1115	Const MIXERCONTROL_CT_CLASS_LIST = &H70000000
	1116	Const MIXERCONTROL_CT_SUBCLASS_MASK = &H0F000000
	1117	Const MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = &H00000000
	1118	Const MIXERCONTROL_CT_SC_SWITCH_BUTTON = &H01000000
	1119	Const MIXERCONTROL_CT_SC_METER_POLLED = &H00000000
	1120	Const MIXERCONTROL_CT_SC_TIME_MICROSECS = &H00000000
	1121	Const MIXERCONTROL_CT_SC_TIME_MILLISECS = &H01000000
	1122	Const MIXERCONTROL_CT_SC_LIST_SINGLE = &H00000000
	1123	Const MIXERCONTROL_CT_SC_LIST_MULTIPLE = &H01000000
	1124	Const MIXERCONTROL_CT_UNITS_MASK = &H00FF0000
	1125	Const MIXERCONTROL_CT_UNITS_CUSTOM = &H00000000
	1126	Const MIXERCONTROL_CT_UNITS_BOOLEAN = &H00010000
	1127	Const MIXERCONTROL_CT_UNITS_SIGNED = &H00020000
	1128	Const MIXERCONTROL_CT_UNITS_UNSIGNED = &H00030000
	1129	Const MIXERCONTROL_CT_UNITS_DECIBELS = &H00040000
	1130	Const MIXERCONTROL_CT_UNITS_PERCENT = &H00050000
	1131
	1132	' MIXERCONTROL.dwControlType
	1133	Const MIXERCONTROL_CONTROLTYPE_CUSTOM = (MIXERCONTROL_CT_CLASS_CUSTOM OR MIXERCONTROL_CT_UNITS_CUSTOM)
	1134	Const MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = (MIXERCONTROL_CT_CLASS_METER OR MIXERCONTROL_CT_SC_METER_POLLED OR MIXERCONTROL_CT_UNITS_BOOLEAN)
	1135	Const MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER OR MIXERCONTROL_CT_SC_METER_POLLED OR MIXERCONTROL_CT_UNITS_SIGNED)
	1136	Const MIXERCONTROL_CONTROLTYPE_PEAKMETER = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1)
	1137	Const MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER OR MIXERCONTROL_CT_SC_METER_POLLED OR MIXERCONTROL_CT_UNITS_UNSIGNED)
	1138	Const MIXERCONTROL_CONTROLTYPE_BOOLEAN = (MIXERCONTROL_CT_CLASS_SWITCH OR MIXERCONTROL_CT_SC_SWITCH_BOOLEAN OR MIXERCONTROL_CT_UNITS_BOOLEAN)
	1139	Const MIXERCONTROL_CONTROLTYPE_ONOFF = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 1)
	1140	Const MIXERCONTROL_CONTROLTYPE_MUTE = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2)
	1141	Const MIXERCONTROL_CONTROLTYPE_MONO = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 3)
	1142	Const MIXERCONTROL_CONTROLTYPE_LOUDNESS = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 4)
	1143	Const MIXERCONTROL_CONTROLTYPE_STEREOENH = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 5)
	1144	Const MIXERCONTROL_CONTROLTYPE_BUTTON = (MIXERCONTROL_CT_CLASS_SWITCH OR MIXERCONTROL_CT_SC_SWITCH_BUTTON OR MIXERCONTROL_CT_UNITS_BOOLEAN)
	1145	Const MIXERCONTROL_CONTROLTYPE_DECIBELS = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_DECIBELS)
	1146	Const MIXERCONTROL_CONTROLTYPE_SIGNED = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_SIGNED)
	1147	Const MIXERCONTROL_CONTROLTYPE_UNSIGNED = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_UNSIGNED)
	1148	Const MIXERCONTROL_CONTROLTYPE_PERCENT = (MIXERCONTROL_CT_CLASS_NUMBER OR MIXERCONTROL_CT_UNITS_PERCENT)
	1149	Const MIXERCONTROL_CONTROLTYPE_SLIDER = (MIXERCONTROL_CT_CLASS_SLIDER OR MIXERCONTROL_CT_UNITS_SIGNED)
	1150	Const MIXERCONTROL_CONTROLTYPE_PAN = (MIXERCONTROL_CONTROLTYPE_SLIDER + 1)
	1151	Const MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = (MIXERCONTROL_CONTROLTYPE_SLIDER + 2)
	1152	Const MIXERCONTROL_CONTROLTYPE_FADER = (MIXERCONTROL_CT_CLASS_FADER OR MIXERCONTROL_CT_UNITS_UNSIGNED)
	1153	Const MIXERCONTROL_CONTROLTYPE_VOLUME = (MIXERCONTROL_CONTROLTYPE_FADER + 1)
	1154	Const MIXERCONTROL_CONTROLTYPE_BASS = (MIXERCONTROL_CONTROLTYPE_FADER + 2)
	1155	Const MIXERCONTROL_CONTROLTYPE_TREBLE = (MIXERCONTROL_CONTROLTYPE_FADER + 3)
	1156	Const MIXERCONTROL_CONTROLTYPE_EQUALIZER = (MIXERCONTROL_CONTROLTYPE_FADER + 4)
	1157	Const MIXERCONTROL_CONTROLTYPE_SINGLESELECT = (MIXERCONTROL_CT_CLASS_LIST OR MIXERCONTROL_CT_SC_LIST_SINGLE OR MIXERCONTROL_CT_UNITS_BOOLEAN)
	1158	Const MIXERCONTROL_CONTROLTYPE_MUX = (MIXERCONTROL_CONTROLTYPE_SINGLESELECT + 1)
	1159	Const MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = (MIXERCONTROL_CT_CLASS_LIST OR MIXERCONTROL_CT_SC_LIST_MULTIPLE OR MIXERCONTROL_CT_UNITS_BOOLEAN)
	1160	Const MIXERCONTROL_CONTROLTYPE_MIXER = (MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT + 1)
	1161	Const MIXERCONTROL_CONTROLTYPE_MICROTIME = (MIXERCONTROL_CT_CLASS_TIME OR MIXERCONTROL_CT_SC_TIME_MICROSECS OR MIXERCONTROL_CT_UNITS_UNSIGNED)
	1162	Const MIXERCONTROL_CONTROLTYPE_MILLITIME = (MIXERCONTROL_CT_CLASS_TIME OR MIXERCONTROL_CT_SC_TIME_MILLISECS OR MIXERCONTROL_CT_UNITS_UNSIGNED)
	1163
[141]	1164	Type MIXERLINECONTROLSW
	1165	cbStruct As DWord
	1166	dwLineID As DWord
	1167	dwControl_ID_Type As DWord
	1168	cControls As DWord
	1169	cbmxctrl As DWord
	1170	pamxctrl As *MIXERCONTROLW
	1171	End Type
	1172	TypeDef PMIXERLINECONTROLSW = *MIXERLINECONTROLSW
	1173	TypeDef LPMIXERLINECONTROLSW = *MIXERLINECONTROLSW
[158]	1174
[75]	1175	Type MIXERLINECONTROLSA
	1176	cbStruct As DWord
	1177	dwLineID As DWord
	1178	dwControl_ID_Type As DWord
	1179	cControls As DWord
	1180	cbmxctrl As DWord
[158]	1181	pamxctrl As *MIXERCONTROL
[75]	1182	End Type
[76]	1183	TypeDef PMIXERLINECONTROLSA = *MIXERLINECONTROLSA
[75]	1184	TypeDef LPMIXERLINECONTROLSA = *MIXERLINECONTROLSA
[158]	1185
[141]	1186	#ifdef UNICODE
[158]	1187	TypeDef MIXERLINECONTROLS = MIXERLINECONTROLSW
	1188	TypeDef PMIXERLINECONTROLS = PMIXERLINECONTROLSW
	1189	TypeDef LPMIXERLINECONTROLS = LPMIXERLINECONTROLSW
	1190	Declare Function mixerGetLineControls Lib "winmm" Alias "mixerGetLineControlsA" (hmxobj As HMIXEROBJ, pmxlc As *MIXERLINECONTROLSW, fdwControls As DWord) As MMRESULT
[141]	1191	#else
	1192	TypeDef MIXERLINECONTROLS = MIXERLINECONTROLSA
[158]	1193	TypeDef PMIXERLINECONTROLS = PMIXERLINECONTROLSA
	1194	TypeDef LPMIXERLINECONTROLS = LPMIXERLINECONTROLSA
	1195	Declare Function mixerGetLineControls Lib "winmm" Alias "mixerGetLineControlsA" (hmxobj As HMIXEROBJ, pmxlc As *MIXERLINECONTROLS, fdwControls As DWord) As MMRESULT
[141]	1196	#endif
[75]	1197
	1198	Const MIXER_GETLINECONTROLSF_ALL = &H00000000
	1199	Const MIXER_GETLINECONTROLSF_ONEBYID = &H00000001
	1200	Const MIXER_GETLINECONTROLSF_ONEBYTYPE = &H00000002
	1201	Const MIXER_GETLINECONTROLSF_QUERYMASK = &H0000000F
	1202
	1203	Type MIXERCONTROLDETAILS
	1204	cbStruct As DWord
	1205	dwControlID As DWord
	1206	cChannels As DWord
	1207	cMultipleItems As DWord
	1208	cbDetails As DWord
	1209	paDetails As VoidPtr
	1210	End Type
	1211	TypeDef PMIXERCONTROLDETAILS = *MIXERCONTROLDETAILS
	1212	TypeDef LPMIXERCONTROLDETAILS = *MIXERCONTROLDETAILS
	1213
[141]	1214	Type MIXERCONTROLDETAILS_LISTTEXTW
	1215	dwParam1 As DWord
	1216	dwParam2 As DWord
	1217	szName[ELM(MIXER_LONG_NAME_CHARS)] As WCHAR
	1218	End Type
	1219	TypeDef PMIXERCONTROLDETAILS_LISTTEXTW = *MIXERCONTROLDETAILS_LISTTEXTW
	1220	TypeDef LPMIXERCONTROLDETAILS_LISTTEXTW = *MIXERCONTROLDETAILS_LISTTEXTW
[158]	1221
[75]	1222	Type MIXERCONTROLDETAILS_LISTTEXTA
	1223	dwParam1 As DWord
	1224	dwParam2 As DWord
[141]	1225	szName[ELM(MIXER_LONG_NAME_CHARS)] As SByte
[75]	1226	End Type
	1227	TypeDef PMIXERCONTROLDETAILS_LISTTEXTA = *MIXERCONTROLDETAILS_LISTTEXTA
	1228	TypeDef LPMIXERCONTROLDETAILS_LISTTEXTA = *MIXERCONTROLDETAILS_LISTTEXTA
[158]	1229
[141]	1230	#ifdef UNICODE
	1231	TypeDef MIXERCONTROLDETAILS_LISTTEXT = MIXERCONTROLDETAILS_LISTTEXTW
[158]	1232	TypeDef PMIXERCONTROLDETAILS_LISTTEXT = PMIXERCONTROLDETAILS_LISTTEXTW
	1233	TypeDef LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTW
[141]	1234	#else
[75]	1235	TypeDef MIXERCONTROLDETAILS_LISTTEXT = MIXERCONTROLDETAILS_LISTTEXTA
[158]	1236	TypeDef PMIXERCONTROLDETAILS_LISTTEXT = PMIXERCONTROLDETAILS_LISTTEXTA
	1237	TypeDef LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTA
[141]	1238	#endif
[75]	1239
	1240	Type MIXERCONTROLDETAILS_BOOLEAN
	1241	fValue As Long
	1242	End Type
	1243	TypeDef PMIXERCONTROLDETAILS_BOOLEAN = *MIXERCONTROLDETAILS_BOOLEAN
	1244	TypeDef LPMIXERCONTROLDETAILS_BOOLEAN = *MIXERCONTROLDETAILS_BOOLEAN
	1245
	1246	Type MIXERCONTROLDETAILS_SIGNED
	1247	lValue As Long
	1248	End Type
	1249	TypeDef PMIXERCONTROLDETAILS_SIGNED = *MIXERCONTROLDETAILS_SIGNED
	1250	TypeDef LPMIXERCONTROLDETAILS_SIGNED = *MIXERCONTROLDETAILS_SIGNED
	1251
	1252	Type MIXERCONTROLDETAILS_UNSIGNED
	1253	dwValue As DWord
	1254	End Type
	1255	TypeDef PMIXERCONTROLDETAILS_UNSIGNED = *MIXERCONTROLDETAILS_UNSIGNED
	1256	TypeDef LPMIXERCONTROLDETAILS_UNSIGNED = *MIXERCONTROLDETAILS_UNSIGNED
	1257
	1258	Declare Function mixerGetControlDetailsA Lib "winmm" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
	1259	Declare Function mixerGetControlDetailsW Lib "winmm" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
[158]	1260	#ifdef UNICODE
	1261	Declare Function mixerGetControlDetails Lib "winmm" Alias "mixerGetControlDetailsW" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
	1262	#else
	1263	Declare Function mixerGetControlDetails Lib "winmm" Alias "mixerGetControlDetailsA" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
	1264	#endif
[75]	1265
	1266	Const MIXER_GETCONTROLDETAILSF_VALUE = &H00000000
	1267	Const MIXER_GETCONTROLDETAILSF_LISTTEXT = &H00000001
	1268	Const MIXER_GETCONTROLDETAILSF_QUERYMASK = &H0000000F
	1269
	1270	Declare Function mixerSetControlDetails Lib "winmm" (hmxobj As HMIXEROBJ, pmxcd As *MIXERCONTROLDETAILS, fdwDetails As DWord) As MMRESULT
	1271
	1272	Const MIXER_SETCONTROLDETAILSF_VALUE = &H00000000
	1273	Const MIXER_SETCONTROLDETAILSF_CUSTOM = &H00000001
	1274	Const MIXER_SETCONTROLDETAILSF_QUERYMASK = &H0000000F
	1275
	1276
	1277	'--------------------------------------------------------
	1278	' Timer support
	1279
	1280	' timer error
	1281	Const TIMERR_NOERROR = (0)
	1282	Const TIMERR_NOCANDO = (TIMERR_BASE+1)
	1283	Const TIMERR_STRUCT = (TIMERR_BASE+33)
	1284
	1285	TypeDef LPTIMECALLBACK = *Sub(uTimerID As DWord, uMsg As DWord, dwUser As DWord, dw1 As DWord, dw2 As DWord)
	1286
	1287	Const TIME_ONESHOT = &H0000
	1288	Const TIME_PERIODIC = &H0001
	1289
	1290	Const TIME_CALLBACK_FUNCTION = &H0000
	1291	Const TIME_CALLBACK_EVENT_SET = &H0010
	1292	Const TIME_CALLBACK_EVENT_PULSE = &H0020
	1293
	1294	' timer device capabilities data structure
	1295	Type TIMECAPS
	1296	wPeriodMin As DWord
	1297	wPeriodMax As DWord
	1298	End Type
	1299	TypeDef PTIMECAPS = *TIMECAPS
	1300	TypeDef NPTIMECAPS = *TIMECAPS
	1301	TypeDef LPTIMECAPS = *TIMECAPS
	1302
	1303	' timer function prototypes
	1304	Declare Function timeGetSystemTime Lib "winmm" (pmmt As *MMTIME, cbmmt As DWord) As MMRESULT
	1305	Declare Function timeGetTime Lib "winmm" () As DWord
	1306	Declare Function timeSetEvent Lib "winmm" (uDelay As DWord, uResolution As DWord, fptc As LPTIMECALLBACK, dwUser As DWord, fuEvent As DWord) As MMRESULT
	1307	Declare Function timeKillEvent Lib "winmm" (uTimerID As DWord) As MMRESULT
	1308	Declare Function timeGetDevCaps Lib "winmm" (ptc As *TIMECAPS, cbtc As DWord) As MMRESULT
	1309	Declare Function timeBeginPeriod Lib "winmm" (uPeriod As DWord) As MMRESULT
	1310	Declare Function timeEndPeriod Lib "winmm" (uPeriod As DWord) As MMRESULT
	1311
	1312
	1313	'--------------------------------------------------------
	1314	' Joystick support
	1315
	1316	' joystick error
	1317	Const JOYERR_NOERROR = (0)
	1318	Const JOYERR_PARMS = (JOYERR_BASE+5)
	1319	Const JOYERR_NOCANDO = (JOYERR_BASE+6)
	1320	Const JOYERR_UNPLUGGED = (JOYERR_BASE+7)
	1321
	1322	' constants used with JOYINFO and JOYINFOEX structures and MM_JOY* messages
	1323	Const JOY_BUTTON1 = &H0001
	1324	Const JOY_BUTTON2 = &H0002
	1325	Const JOY_BUTTON3 = &H0004
	1326	Const JOY_BUTTON4 = &H0008
	1327	Const JOY_BUTTON1CHG = &H0100
	1328	Const JOY_BUTTON2CHG = &H0200
	1329	Const JOY_BUTTON3CHG = &H0400
	1330	Const JOY_BUTTON4CHG = &H0800
	1331
	1332	' constants used with JOYINFOEX
	1333	Const JOY_BUTTON5 = &H00000010
	1334	Const JOY_BUTTON6 = &H00000020
	1335	Const JOY_BUTTON7 = &H00000040
	1336	Const JOY_BUTTON8 = &H00000080
	1337	Const JOY_BUTTON9 = &H00000100
	1338	Const JOY_BUTTON10 = &H00000200
	1339	Const JOY_BUTTON11 = &H00000400
	1340	Const JOY_BUTTON12 = &H00000800
	1341	Const JOY_BUTTON13 = &H00001000
	1342	Const JOY_BUTTON14 = &H00002000
	1343	Const JOY_BUTTON15 = &H00004000
	1344	Const JOY_BUTTON16 = &H00008000
	1345	Const JOY_BUTTON17 = &H00010000
	1346	Const JOY_BUTTON18 = &H00020000
	1347	Const JOY_BUTTON19 = &H00040000
	1348	Const JOY_BUTTON20 = &H00080000
	1349	Const JOY_BUTTON21 = &H00100000
	1350	Const JOY_BUTTON22 = &H00200000
	1351	Const JOY_BUTTON23 = &H00400000
	1352	Const JOY_BUTTON24 = &H00800000
	1353	Const JOY_BUTTON25 = &H01000000
	1354	Const JOY_BUTTON26 = &H02000000
	1355	Const JOY_BUTTON27 = &H04000000
	1356	Const JOY_BUTTON28 = &H08000000
	1357	Const JOY_BUTTON29 = &H10000000
	1358	Const JOY_BUTTON30 = &H20000000
	1359	Const JOY_BUTTON31 = &H40000000
	1360	Const JOY_BUTTON32 = &H80000000
	1361
	1362	' constants used with JOYINFOEX structure
	1363	Const JOY_POVCENTERED = (-1)
	1364	Const JOY_POVFORWARD = 0
	1365	Const JOY_POVRIGHT = 9000
	1366	Const JOY_POVBACKWARD = 18000
	1367	Const JOY_POVLEFT = 27000
	1368
	1369	Const JOY_RETURNX = &H00000001
	1370	Const JOY_RETURNY = &H00000002
	1371	Const JOY_RETURNZ = &H00000004
	1372	Const JOY_RETURNR = &H00000008
	1373	Const JOY_RETURNU = &H00000010
	1374	Const JOY_RETURNV = &H00000020
	1375	Const JOY_RETURNPOV = &H00000040
	1376	Const JOY_RETURNBUTTONS = &H00000080
	1377	Const JOY_RETURNRAWDATA = &H00000100
	1378	Const JOY_RETURNPOVCTS = &H00000200
	1379	Const JOY_RETURNCENTERED = &H00000400
	1380	Const JOY_USEDEADZONE = &H00000800
	1381	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)
	1382	Const JOY_CAL_READALWAYS = &H00010000
	1383	Const JOY_CAL_READXYONLY = &H00020000
	1384	Const JOY_CAL_READ3 = &H00040000
	1385	Const JOY_CAL_READ4 = &H00080000
	1386	Const JOY_CAL_READXONLY = &H00100000
	1387	Const JOY_CAL_READYONLY = &H00200000
	1388	Const JOY_CAL_READ5 = &H00400000
	1389	Const JOY_CAL_READ6 = &H00800000
	1390	Const JOY_CAL_READZONLY = &H01000000
	1391	Const JOY_CAL_READRONLY = &H02000000
	1392	Const JOY_CAL_READUONLY = &H04000000
	1393	Const JOY_CAL_READVONLY = &H08000000
	1394
	1395	' joystick ID constants
	1396	Const JOYSTICKID1 = 0
	1397	Const JOYSTICKID2 = 1
	1398
	1399	' joystick driver capabilites
	1400	Const JOYCAPS_HASZ = &H0001
	1401	Const JOYCAPS_HASR = &H0002
	1402	Const JOYCAPS_HASU = &H0004
	1403	Const JOYCAPS_HASV = &H0008
	1404	Const JOYCAPS_HASPOV = &H0010
	1405	Const JOYCAPS_POV4DIR = &H0020
	1406	Const JOYCAPS_POVCTS = &H0040
	1407
[141]	1408	Type JOYCAPSW
	1409	wMid As Word
	1410	wPid As Word
	1411	szPname[ELM(MAXPNAMELEN)] As WCHAR
	1412	wXmin As DWord
	1413	wXmax As DWord
	1414	wYmin As DWord
	1415	wYmax As DWord
	1416	wZmin As DWord
	1417	wZmax As DWord
	1418	wNumButtons As DWord
	1419	wPeriodMin As DWord
	1420	wPeriodMax As DWord
	1421	wRmin As DWord
	1422	wRmax As DWord
	1423	wUmin As DWord
	1424	wUmax As DWord
	1425	wVmin As DWord
	1426	wVmax As DWord
	1427	wCaps As DWord
	1428	wMaxAxes As DWord
	1429	wNumAxes As DWord
	1430	wMaxButtons As DWord
	1431	szRegKey[ELM(MAXPNAMELEN)] As WCHAR
	1432	szOEMVxD[ELM(MAX_JOYSTICKOEMVXDNAME)] As WCHAR
	1433	End Type
	1434	TypeDef PJOYCAPSW = *JOYCAPSW
	1435	TypeDef NPJOYCAPSW = *JOYCAPSW
	1436	TypeDef LPJOYCAPSW = *JOYCAPSW
[158]	1437
[75]	1438	Type JOYCAPSA
	1439	wMid As Word
	1440	wPid As Word
[141]	1441	szPname[ELM(MAXPNAMELEN)] As SByte
[75]	1442	wXmin As DWord
	1443	wXmax As DWord
	1444	wYmin As DWord
	1445	wYmax As DWord
	1446	wZmin As DWord
	1447	wZmax As DWord
	1448	wNumButtons As DWord
	1449	wPeriodMin As DWord
	1450	wPeriodMax As DWord
	1451	wRmin As DWord
	1452	wRmax As DWord
	1453	wUmin As DWord
	1454	wUmax As DWord
	1455	wVmin As DWord
	1456	wVmax As DWord
	1457	wCaps As DWord
	1458	wMaxAxes As DWord
	1459	wNumAxes As DWord
	1460	wMaxButtons As DWord
[141]	1461	szRegKey[ELM(MAXPNAMELEN)] As SByte
	1462	szOEMVxD[ELM(MAX_JOYSTICKOEMVXDNAME)] As SByte
[75]	1463	End Type
	1464	TypeDef PJOYCAPSA = *JOYCAPSA
	1465	TypeDef NPJOYCAPSA = *JOYCAPSA
	1466	TypeDef LPJOYCAPSA = *JOYCAPSA
[158]	1467
[141]	1468	#ifdef UNICODE
	1469	TypeDef JOYCAPS = JOYCAPSW
[158]	1470	TypeDef PJOYCAPS = PJOYCAPSW
	1471	TypeDef NPJOYCAPS = NPJOYCAPSW
	1472	TypeDef LPJOYCAPS = LPJOYCAPSW
[141]	1473	#else
[75]	1474	TypeDef JOYCAPS = JOYCAPSA
	1475	TypeDef PJOYCAPS = PJOYCAPSA
	1476	TypeDef NPJOYCAPS = NPJOYCAPSA
	1477	TypeDef LPJOYCAPS = LPJOYCAPSA
[158]	1478	#endif
[75]	1479
	1480	Type JOYINFO
	1481	wXpos As DWord
	1482	wYpos As DWord
	1483	wZpos As DWord
	1484	wButtons As DWord
	1485	End Type
[76]	1486	TypeDef PJOYINFO = *JOYINFO
[75]	1487	TypeDef NPJOYINFO = *JOYINFO
	1488	TypeDef LPJOYINFO = *JOYINFO
	1489
	1490	Type JOYINFOEX
	1491	dwSize As DWord
	1492	dwFlags As DWord
	1493	dwXpos As DWord
	1494	dwYpos As DWord
	1495	dwZpos As DWord
	1496	dwRpos As DWord
	1497	dwUpos As DWord
	1498	dwVpos As DWord
	1499	dwButtons As DWord
	1500	dwButtonNumber As DWord
	1501	dwPOV As DWord
	1502	dwReserved1 As DWord
	1503	dwReserved2 As DWord
	1504	End Type
	1505	TypeDef PJOYINFOEX = *JOYINFOEX
	1506	TypeDef NPJOYINFOEX = *JOYINFOEX
	1507	TypeDef LPJOYINFOEX = *JOYINFOEX
	1508
	1509	' joystick function prototypes
	1510	Declare Function joyGetNumDevs Lib "winmm" () As DWord
[158]	1511	#ifdef UNICODE
	1512	Declare Function joyGetDevCaps Lib "winmm" Alias "joyGetDevCapsW" (uJoyID As DWord, pjc As *JOYCAPSW, cbjc As DWord) As MMRESULT
	1513	#else
	1514	Declare Function joyGetDevCaps Lib "winmm" Alias "joyGetDevCapsA" (uJoyID As DWord, pjc As *JOYCAPS, cbjc As DWord) As MMRESULT
	1515	#endif
[75]	1516	Declare Function joyGetPos Lib "winmm" (uJoyID As DWord, pji As *JOYINFO) As MMRESULT
	1517	Declare Function joyGetPosEx Lib "winmm" (uJoyID As DWord, pji As *JOYINFOEX) As MMRESULT
	1518	Declare Function joyGetThreshold Lib "winmm" (uJoyID As DWord, puThreshold As *DWord) As MMRESULT
	1519	Declare Function joyReleaseCapture Lib "winmm" (uJoyID As DWord) As MMRESULT
	1520	Declare Function joySetCapture Lib "winmm" (hwnd As HWND, uJoyID As DWord, uPeriod As DWord, fChanged As BOOL) As MMRESULT
	1521	Declare Function joySetThreshold Lib "winmm" (uJoyID As DWord, uThreshold As DWord) As MMRESULT
	1522
	1523
	1524	'--------------------------------------------------------
	1525	' Multimedia File I/O support
	1526
	1527	' MMIO error return values
	1528	Const MMIOERR_BASE = 256
	1529	Const MMIOERR_FILENOTFOUND = (MMIOERR_BASE + 1)
	1530	Const MMIOERR_OUTOFMEMORY = (MMIOERR_BASE + 2)
	1531	Const MMIOERR_CANNOTOPEN = (MMIOERR_BASE + 3)
	1532	Const MMIOERR_CANNOTCLOSE = (MMIOERR_BASE + 4)
	1533	Const MMIOERR_CANNOTREAD = (MMIOERR_BASE + 5)
	1534	Const MMIOERR_CANNOTWRITE = (MMIOERR_BASE + 6)
	1535	Const MMIOERR_CANNOTSEEK = (MMIOERR_BASE + 7)
	1536	Const MMIOERR_CANNOTEXPAND = (MMIOERR_BASE + 8)
	1537	Const MMIOERR_CHUNKNOTFOUND = (MMIOERR_BASE + 9)
	1538	Const MMIOERR_UNBUFFERED = (MMIOERR_BASE + 10)
	1539	Const MMIOERR_PATHNOTFOUND = (MMIOERR_BASE + 11)
	1540	Const MMIOERR_ACCESSDENIED = (MMIOERR_BASE + 12)
	1541	Const MMIOERR_SHARINGVIOLATION = (MMIOERR_BASE + 13)
	1542	Const MMIOERR_NETWORKERROR = (MMIOERR_BASE + 14)
	1543	Const MMIOERR_TOOMANYOPENFILES = (MMIOERR_BASE + 15)
	1544	Const MMIOERR_INVALIDFILE = (MMIOERR_BASE + 16)
	1545
	1546	' MMIO constants
	1547	Const CFSEPCHAR = "+"
	1548
	1549	' MMIO data types
	1550	TypeDef FOURCC = DWord
	1551	TypeDef HPSTR = *Char
	1552	TypeDef HMMIO = VoidPtr
	1553
	1554	TypeDef LPMMIOPROC = *Function(lpmmioinfo As LPSTR, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
	1555
	1556	Type MMIOINFO
	1557	dwFlags As DWord
	1558	fccIOProc As FOURCC
	1559	pIOProc As LPMMIOPROC
	1560	wErrorRet As DWord
	1561	htask As HTASK
	1562	cchBuffer As Long
	1563	pchBuffer As HPSTR
	1564	pchNext As HPSTR
	1565	pchEndRead As HPSTR
	1566	pchEndWrite As HPSTR
	1567	lBufOffset As Long
	1568	lDiskOffset As Long
	1569	adwInfo[ELM(3)] As DWord
	1570	dwReserved1 As DWord
	1571	dwReserved2 As DWord
	1572	hmmio As HMMIO
	1573	End Type
	1574	TypeDef PMMIOINFO = *MMIOINFO
	1575	TypeDef NPMMIOINFO = *MMIOINFO
	1576	TypeDef LPMMIOINFO = *MMIOINFO
	1577
	1578	Type MMCKINFO
	1579	ckid As FOURCC
	1580	cksize As DWord
	1581	fccType As FOURCC
	1582	dwDataOffset As DWord
	1583	dwFlags As DWord
	1584	End Type
	1585	TypeDef PMMCKINFO = *MMCKINFO
	1586	TypeDef NPMMCKINFO = *MMCKINFO
	1587	TypeDef LPMMCKINFO = *MMCKINFO
	1588
	1589	Const MMIO_RWMODE = &H00000003
	1590	Const MMIO_SHAREMODE = &H00000070
	1591	Const MMIO_CREATE = &H00001000
	1592	Const MMIO_PARSE = &H00000100
	1593	Const MMIO_DELETE = &H00000200
	1594	Const MMIO_EXIST = &H00004000
	1595	Const MMIO_ALLOCBUF = &H00010000
	1596	Const MMIO_GETTEMP = &H00020000
	1597	Const MMIO_DIRTY = &H10000000
	1598	Const MMIO_READ = &H00000000
	1599	Const MMIO_WRITE = &H00000001
	1600	Const MMIO_READWRITE = &H00000002
	1601	Const MMIO_COMPAT = &H00000000
	1602	Const MMIO_EXCLUSIVE = &H00000010
	1603	Const MMIO_DENYWRITE = &H00000020
	1604	Const MMIO_DENYREAD = &H00000030
	1605	Const MMIO_DENYNONE = &H00000040
	1606	Const MMIO_FHOPEN = &H0010
	1607	Const MMIO_EMPTYBUF = &H0010
	1608	Const MMIO_TOUPPER = &H0010
	1609	Const MMIO_INSTALLPROC = &H00010000
	1610	Const MMIO_GLOBALPROC = &H10000000
	1611	Const MMIO_REMOVEPROC = &H00020000
	1612	Const MMIO_UNICODEPROC = &H01000000
	1613	Const MMIO_FINDPROC = &H00040000
	1614	Const MMIO_FINDCHUNK = &H0010
	1615	Const MMIO_FINDRIFF = &H0020
	1616	Const MMIO_FINDLIST = &H0040
	1617	Const MMIO_CREATERIFF = &H0020
	1618	Const MMIO_CREATELIST = &H0040
	1619
	1620	Const MMIOM_READ = MMIO_READ
	1621	Const MMIOM_WRITE = MMIO_WRITE
	1622	Const MMIOM_SEEK = 2
	1623	Const MMIOM_OPEN = 3
	1624	Const MMIOM_CLOSE = 4
	1625	Const MMIOM_WRITEFLUSH = 5
	1626	Const MMIOM_RENAME = 6
	1627	Const MMIOM_USER = &H8000
	1628
	1629	Const FOURCC_RIFF = MAKEFOURCC(&H52, &H49, &H46, &H46)
	1630	Const FOURCC_LIST = MAKEFOURCC(&H4C, &H49, &H53, &H54)
	1631	Const FOURCC_DOS = MAKEFOURCC(&H44, &H4F, &H53, &H20)
	1632	Const FOURCC_MEM = MAKEFOURCC(&H4D, &H45, &H4D, &H20)
	1633
	1634	Const SEEK_SET = 0
	1635	Const SEEK_CUR = 1
	1636	Const SEEK_END = 2
	1637
	1638	Const MMIO_DEFAULTBUFFER = 8192
	1639
	1640	Function mmioFOURCC(ch0 As String, ch1 As String, ch2 As String, ch3 As String) As FOURCC
	1641	mmioFOURCC = MAKEFOURCC(Asc(ch0), Asc(ch1), Asc(ch2), Asc(ch3))
	1642	End Function
	1643
	1644	' MMIO function prototypes
[158]	1645	#ifdef UNICODE
	1646	Declare Function mmioStringToFOURCC Lib "winmm" Alias "mmioStringToFOURCCW" (sz As LPWSTR, uFlags As DWord) As FOURCC
	1647	Declare Function mmioInstallIOProc Lib "winmm" Alias "mmioInstallIOProcW" (fccIOProc As FOURCC, pIOProc As LPMMIOPROC, dwFlags As DWord) As LPMMIOPROC
	1648	Declare Function mmioOpen Lib "winmm" Alias "mmioOpenW" (pszFileName As LPWSTR, pmmioinfo As *MMIOINFO, fdwOpen As DWord) As HMMIO
	1649	Declare Function mmioRename Lib "winmm" Alias "mmioRenameW" (pszFileName As LPSTR, pszNewFileName As LPWSTR, pmmioinfo As *MMIOINFO, fdwRename As DWord) As MMRESULT
	1650	#else
	1651	Declare Function mmioStringToFOURCC Lib "winmm" Alias "mmioStringToFOURCCA" (sz As LPSTR, uFlags As DWord) As FOURCC
	1652	Declare Function mmioInstallIOProc Lib "winmm" Alias "mmioInstallIOProcA" (fccIOProc As FOURCC, pIOProc As LPMMIOPROC, dwFlags As DWord) As LPMMIOPROC
	1653	Declare Function mmioOpen Lib "winmm" Alias "mmioOpenA" (pszFileName As LPSTR, pmmioinfo As *MMIOINFO, fdwOpen As DWord) As HMMIO
	1654	Declare Function mmioRename Lib "winmm" Alias "mmioRenameA" (pszFileName As LPSTR, pszNewFileName As LPSTR, pmmioinfo As *MMIOINFO, fdwRename As DWord) As MMRESULT
	1655	#endif
[75]	1656	Declare Function mmioClose Lib "winmm" (hmmio As HMMIO, fuClose As DWord) As MMRESULT
	1657	Declare Function mmioRead Lib "winmm" (hmmio As HMMIO, pch As HPSTR, cch As Long) As Long
	1658	Declare Function mmioWrite Lib "winmm" (hmmio As HMMIO, pch As HPSTR, cch As Long) As Long
	1659	Declare Function mmioSeek Lib "winmm" (hmmio As HMMIO, lOffset As Long, iOrigin As Long) As Long
	1660	Declare Function mmioGetInfo Lib "winmm" (hmmio As HMMIO, pmmioinfo As *MMIOINFO, fuInfo As DWord) As MMRESULT
	1661	Declare Function mmioSetInfo Lib "winmm" (hmmio As HMMIO, pmmioinfo As *MMIOINFO, fuInfo As DWord) As MMRESULT
	1662	Declare Function mmioSetBuffer Lib "winmm" (hmmio As HMMIO, pchBuffer As LPSTR, cchBuffer As Long, fuBuffer As DWord) As MMRESULT
	1663	Declare Function mmioFlush Lib "winmm" (hmmio As HMMIO, fuFlush As DWord) As MMRESULT
	1664	Declare Function mmioAdvance Lib "winmm" (hmmio As HMMIO, pmmioinfo As *MMIOINFO, fuAdvance As DWord) As MMRESULT
	1665	Declare Function mmioSendMessage Lib "winmm" (hmmio As HMMIO, uMsg As DWord, lParam1 As LPARAM, lParam2 As LPARAM) As LRESULT
	1666	Declare Function mmioDescend Lib "winmm" (hmmio As HMMIO, pmmcki As MMCKINFO, pmmckiParent As MMCKINFO, fuDescend As DWord) As MMRESULT
	1667	Declare Function mmioAscend Lib "winmm" (hmmio As HMMIO, pmmcki As *MMCKINFO, fuAscend As DWord) As MMRESULT
	1668	Declare Function mmioCreateChunk Lib "winmm" (hmmio As HMMIO, pmmcki As *MMCKINFO, fuCreate As DWord) As MMRESULT
	1669
	1670
	1671	'--------------------------------------------------------
	1672	' MCI support
	1673
[95]	1674	TypeDef MCIERROR = DWord
	1675	TypeDef MCIDEVICEID = DWord
	1676	TypeDef YIELDPROC = *Function(mciId As MCIDEVICEID, dwYieldData As DWord) As DWord
	1677
	1678	' MCI Functions
[158]	1679	#ifdef UNICODE
	1680	Declare Function mciSendCommand Lib "winmm" Alias "mciSendCommandW" (mciId As MCIDEVICEID, uMsg As DWord, dwParam1 As DWord, ByRef dwParam2 As Any) As MCIERROR
	1681	Declare Function mciSendString Lib "winmm" Alias "mciSendStringW" (lpstrCommand As LPWSTR, lpstrReturnString As LPWSTR, uReturnLength As DWord, hwndCallback As HWND) As MCIERROR
	1682	Declare Function mciGetDeviceID Lib "winmm" Alias "mciGetDeviceIDW" (pszDevice As LPWSTR) As MCIDEVICEID
	1683	Declare Function mciGetErrorString Lib "winmm" Alias "mciGetErrorStringA" (mcierr As MCIERROR, pszText As LPWSTR, cchText As DWord) As BOOL
	1684	#else
	1685	Declare Function mciSendCommand Lib "winmm" Alias "mciSendCommandA" (mciId As MCIDEVICEID, uMsg As DWord, dwParam1 As DWord, ByRef dwParam2 As Any) As MCIERROR
	1686	Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (lpstrCommand As LPSTR, lpstrReturnString As LPSTR, uReturnLength As DWord, hwndCallback As HWND) As MCIERROR
	1687	Declare Function mciGetDeviceID Lib "winmm" Alias "mciGetDeviceIDA" (pszDevice As LPSTR) As MCIDEVICEID
	1688	Declare Function mciGetErrorString Lib "winmm" Alias "mciGetErrorStringA" (mcierr As MCIERROR, pszText As LPSTR, cchText As DWord) As BOOL
	1689	#endif
[95]	1690
	1691	Declare Function mciSetYieldProc Lib "winmm" (mciId As MCIDEVICEID, fpYieldProc As YIELDPROC, dwYieldData As DWord) As BOOL
	1692	Declare Function mciGetCreatorTask Lib "winmm" (mciId As MCIDEVICEID) As HTASK
	1693	Declare Function mciGetYieldProc Lib "winmm" (mciId As MCIDEVICEID, pdwYieldData As *DWord) As YIELDPROC
	1694	Declare Function mciExecute Lib "winmm" (pszCommand As LPSTR) As BOOL
	1695
	1696	Const MCIERR_INVALID_DEVICE_ID = (MCIERR_BASE + 1)
	1697	Const MCIERR_UNRECOGNIZED_KEYWORD = (MCIERR_BASE + 3)
	1698	Const MCIERR_UNRECOGNIZED_COMMAND = (MCIERR_BASE + 5)
	1699	Const MCIERR_HARDWARE = (MCIERR_BASE + 6)
	1700	Const MCIERR_INVALID_DEVICE_NAME = (MCIERR_BASE + 7)
	1701	Const MCIERR_OUT_OF_MEMORY = (MCIERR_BASE + 8)
	1702	Const MCIERR_DEVICE_OPEN = (MCIERR_BASE + 9)
	1703	Const MCIERR_CANNOT_LOAD_DRIVER = (MCIERR_BASE + 10)
	1704	Const MCIERR_MISSING_COMMAND_STRING = (MCIERR_BASE + 11)
	1705	Const MCIERR_PARAM_OVERFLOW = (MCIERR_BASE + 12)
	1706	Const MCIERR_MISSING_STRING_ARGUMENT = (MCIERR_BASE + 13)
	1707	Const MCIERR_BAD_INTEGER = (MCIERR_BASE + 14)
	1708	Const MCIERR_PARSER_INTERNAL = (MCIERR_BASE + 15)
	1709	Const MCIERR_DRIVER_INTERNAL = (MCIERR_BASE + 16)
	1710	Const MCIERR_MISSING_PARAMETER = (MCIERR_BASE + 17)
	1711	Const MCIERR_UNSUPPORTED_FUNCTION = (MCIERR_BASE + 18)
	1712	Const MCIERR_FILE_NOT_FOUND = (MCIERR_BASE + 19)
	1713	Const MCIERR_DEVICE_NOT_READY = (MCIERR_BASE + 20)
	1714	Const MCIERR_INTERNAL = (MCIERR_BASE + 21)
	1715	Const MCIERR_DRIVER = (MCIERR_BASE + 22)
	1716	Const MCIERR_CANNOT_USE_ALL = (MCIERR_BASE + 23)
	1717	Const MCIERR_MULTIPLE = (MCIERR_BASE + 24)
	1718	Const MCIERR_EXTENSION_NOT_FOUND = (MCIERR_BASE + 25)
	1719	Const MCIERR_OUTOFRANGE = (MCIERR_BASE + 26)
	1720	Const MCIERR_FLAGS_NOT_COMPATIBLE = (MCIERR_BASE + 28)
	1721	Const MCIERR_FILE_NOT_SAVED = (MCIERR_BASE + 30)
	1722	Const MCIERR_DEVICE_TYPE_REQUIRED = (MCIERR_BASE + 31)
	1723	Const MCIERR_DEVICE_LOCKED = (MCIERR_BASE + 32)
	1724	Const MCIERR_DUPLICATE_ALIAS = (MCIERR_BASE + 33)
	1725	Const MCIERR_BAD_CONSTANT = (MCIERR_BASE + 34)
	1726	Const MCIERR_MUST_USE_SHAREABLE = (MCIERR_BASE + 35)
	1727	Const MCIERR_MISSING_DEVICE_NAME = (MCIERR_BASE + 36)
	1728	Const MCIERR_BAD_TIME_FORMAT = (MCIERR_BASE + 37)
	1729	Const MCIERR_NO_CLOSING_QUOTE = (MCIERR_BASE + 38)
	1730	Const MCIERR_DUPLICATE_FLAGS = (MCIERR_BASE + 39)
	1731	Const MCIERR_INVALID_FILE = (MCIERR_BASE + 40)
	1732	Const MCIERR_NULL_PARAMETER_BLOCK = (MCIERR_BASE + 41)
	1733	Const MCIERR_UNNAMED_RESOURCE = (MCIERR_BASE + 42)
	1734	Const MCIERR_NEW_REQUIRES_ALIAS = (MCIERR_BASE + 43)
	1735	Const MCIERR_NOTIFY_ON_AUTO_OPEN = (MCIERR_BASE + 44)
	1736	Const MCIERR_NO_ELEMENT_ALLOWED = (MCIERR_BASE + 45)
	1737	Const MCIERR_NONAPPLICABLE_FUNCTION = (MCIERR_BASE + 46)
	1738	Const MCIERR_ILLEGAL_FOR_AUTO_OPEN = (MCIERR_BASE + 47)
	1739	Const MCIERR_FILENAME_REQUIRED = (MCIERR_BASE + 48)
	1740	Const MCIERR_EXTRA_CHARACTERS = (MCIERR_BASE + 49)
	1741	Const MCIERR_DEVICE_NOT_INSTALLED = (MCIERR_BASE + 50)
	1742	Const MCIERR_GET_CD = (MCIERR_BASE + 51)
	1743	Const MCIERR_SET_CD = (MCIERR_BASE + 52)
	1744	Const MCIERR_SET_DRIVE = (MCIERR_BASE + 53)
	1745	Const MCIERR_DEVICE_LENGTH = (MCIERR_BASE + 54)
	1746	Const MCIERR_DEVICE_ORD_LENGTH = (MCIERR_BASE + 55)
	1747	Const MCIERR_NO_INTEGER = (MCIERR_BASE + 56)
	1748
	1749	Const MCIERR_WAVE_OUTPUTSINUSE = (MCIERR_BASE + 64)
	1750	Const MCIERR_WAVE_SETOUTPUTINUSE = (MCIERR_BASE + 65)
	1751	Const MCIERR_WAVE_INPUTSINUSE = (MCIERR_BASE + 66)
	1752	Const MCIERR_WAVE_SETINPUTINUSE = (MCIERR_BASE + 67)
	1753	Const MCIERR_WAVE_OUTPUTUNSPECIFIED = (MCIERR_BASE + 68)
	1754	Const MCIERR_WAVE_INPUTUNSPECIFIED = (MCIERR_BASE + 69)
	1755	Const MCIERR_WAVE_OUTPUTSUNSUITABLE = (MCIERR_BASE + 70)
	1756	Const MCIERR_WAVE_SETOUTPUTUNSUITABLE = (MCIERR_BASE + 71)
	1757	Const MCIERR_WAVE_INPUTSUNSUITABLE = (MCIERR_BASE + 72)
	1758	Const MCIERR_WAVE_SETINPUTUNSUITABLE = (MCIERR_BASE + 73)
	1759
	1760	Const MCIERR_SEQ_DIV_INCOMPATIBLE = (MCIERR_BASE + 80)
	1761	Const MCIERR_SEQ_PORT_INUSE = (MCIERR_BASE + 81)
	1762	Const MCIERR_SEQ_PORT_NONEXISTENT = (MCIERR_BASE + 82)
	1763	Const MCIERR_SEQ_PORT_MAPNODEVICE = (MCIERR_BASE + 83)
	1764	Const MCIERR_SEQ_PORT_MISCERROR = (MCIERR_BASE + 84)
	1765	Const MCIERR_SEQ_TIMER = (MCIERR_BASE + 85)
	1766	Const MCIERR_SEQ_PORTUNSPECIFIED = (MCIERR_BASE + 86)
	1767	Const MCIERR_SEQ_NOMIDIPRESENT = (MCIERR_BASE + 87)
	1768
	1769	Const MCIERR_NO_WINDOW = (MCIERR_BASE + 90)
	1770	Const MCIERR_CREATEWINDOW = (MCIERR_BASE + 91)
	1771	Const MCIERR_FILE_READ = (MCIERR_BASE + 92)
	1772	Const MCIERR_FILE_WRITE = (MCIERR_BASE + 93)
	1773	Const MCIERR_NO_IDENTITY = (MCIERR_BASE + 94)
	1774	Const MCIERR_CUSTOM_DRIVER_BASE = (MCIERR_BASE + 256)
	1775
	1776	Const MCI_FIRST = DRV_MCI_FIRST
	1777	Const MCI_OPEN = &H0803
	1778	Const MCI_CLOSE = &H0804
	1779	Const MCI_ESCAPE = &H0805
	1780	Const MCI_PLAY = &H0806
	1781	Const MCI_SEEK = &H0807
	1782	Const MCI_STOP = &H0808
	1783	Const MCI_PAUSE = &H0809
	1784	Const MCI_INFO = &H080A
	1785	Const MCI_GETDEVCAPS = &H080B
	1786	Const MCI_SPIN = &H080C
	1787	Const MCI_SET = &H080D
	1788	Const MCI_STEP = &H080E
	1789	Const MCI_RECORD = &H080F
	1790	Const MCI_SYSINFO = &H0810
	1791	Const MCI_BREAK = &H0811
	1792	Const MCI_SAVE = &H0813
	1793	Const MCI_STATUS = &H0814
	1794	Const MCI_CUE = &H0830
	1795	Const MCI_REALIZE = &H0840
	1796	Const MCI_WINDOW = &H0841
	1797	Const MCI_PUT = &H0842
	1798	Const MCI_WHERE = &H0843
	1799	Const MCI_FREEZE = &H0844
	1800	Const MCI_UNFREEZE = &H0845
	1801	Const MCI_LOAD = &H0850
	1802	Const MCI_CUT = &H0851
	1803	Const MCI_COPY = &H0852
	1804	Const MCI_PASTE = &H0853
	1805	Const MCI_UPDATE = &H0854
	1806	Const MCI_RESUME = &H0855
	1807	Const MCI_DELETE = &H0856
	1808
	1809	Const MCI_USER_MESSAGES = (DRV_MCI_FIRST + &H400)
	1810	Const MCI_LAST = &H0FFF
	1811
	1812	Const MCI_ALL_DEVICE_ID = (-1)
	1813
	1814	' constants for predefined MCI device types
	1815	Const MCI_DEVTYPE_VCR = 513
	1816	Const MCI_DEVTYPE_VIDEODISC = 514
	1817	Const MCI_DEVTYPE_OVERLAY = 515
	1818	Const MCI_DEVTYPE_CD_AUDIO = 516
	1819	Const MCI_DEVTYPE_DAT = 517
	1820	Const MCI_DEVTYPE_SCANNER = 518
	1821	Const MCI_DEVTYPE_ANIMATION = 519
	1822	Const MCI_DEVTYPE_DIGITAL_VIDEO = 520
	1823	Const MCI_DEVTYPE_OTHER = 521
	1824	Const MCI_DEVTYPE_WAVEFORM_AUDIO = 522
	1825	Const MCI_DEVTYPE_SEQUENCER = 523
	1826	Const MCI_DEVTYPE_FIRST = MCI_DEVTYPE_VCR
	1827	Const MCI_DEVTYPE_LAST = MCI_DEVTYPE_SEQUENCER
	1828	Const MCI_DEVTYPE_FIRST_USER = &H1000
	1829
	1830	' return values for 'status mode' command
	1831	Const MCI_MODE_NOT_READY = MCI_STRING_OFFSET + 12
	1832	Const MCI_MODE_STOP = MCI_STRING_OFFSET + 13
	1833	Const MCI_MODE_PLAY = MCI_STRING_OFFSET + 14
	1834	Const MCI_MODE_RECORD = MCI_STRING_OFFSET + 15
	1835	Const MCI_MODE_SEEK = MCI_STRING_OFFSET + 16
	1836	Const MCI_MODE_PAUSE = MCI_STRING_OFFSET + 17
	1837	Const MCI_MODE_OPEN = MCI_STRING_OFFSET + 18
	1838
[75]	1839	'--------------------------------------------------------
[1]	1840	' Time Format(used in MCI_SET_PARAMS, MCI_STATUS_PARAMS)
	1841
	1842	Const MCI_FORMAT_MILLISECONDS = 0
	1843	Const MCI_FORMAT_HMS = 1
	1844	Const MCI_FORMAT_MSF = 2
	1845	Const MCI_FORMAT_FRAMES = 3
	1846	Const MCI_FORMAT_SMPTE_24 = 4
	1847	Const MCI_FORMAT_SMPTE_25 = 5
	1848	Const MCI_FORMAT_SMPTE_30 = 6
	1849	Const MCI_FORMAT_SMPTE_30DROP = 7
	1850	Const MCI_FORMAT_BYTES = 8
	1851	Const MCI_FORMAT_SAMPLES = 9
	1852	Const MCI_FORMAT_TMSF = 10
	1853
[95]	1854	'------------
	1855	' MCI Macros
[1]	1856
[95]	1857	'MSF
	1858	Function MCI_MSF_MINUTE(msf As DWord) As Byte
	1859	Return (&HFF AND msf)
	1860	End Function
	1861	Function MCI_MSF_SECOND(msf As DWord) As Byte
	1862	Return (&HFF AND (msf>> 8))
	1863	End Function
	1864	Function MCI_MSF_FRAME(msf As DWord) As Byte
	1865	Return (&HFF AND (msf>>16))
	1866	End Function
	1867	Function MCI_MAKE_MSF(minutes As Byte, seconds As Byte, frames As Byte) As DWord
	1868	Return MAKELONG(minutes,MAKEWORD(seconds,frames))
	1869	End Function
[1]	1870
[95]	1871	'TMSF
	1872	Function MCI_TMSF_TRACK(tmsf As DWord) As Byte
	1873	Return (&HFF AND (tmsf))
	1874	End Function
	1875	Function MCI_TMSF_MINUTE(tmsf As DWord) As Byte
	1876	Return (&HFF AND (((tmsf)) >> 8))
	1877	End Function
	1878	Function MCI_TMSF_SECOND(tmsf As DWord) As Byte
	1879	Return (&HFF AND ((tmsf)>>16))
	1880	End Function
	1881	Function MCI_TMSF_FRAME(tmsf As DWord) As Byte
	1882	Return (&HFF AND ((tmsf)>>24))
	1883	End Function
	1884	Function MCI_MAKE_TMSF(tracks As Byte, minutes As Byte, seconds As Byte, frames As Byte) As DWord
	1885	Return MAKELONG(MAKEWORD(tracks,minutes),MAKEWORD(seconds,frames))
	1886	End Function
	1887
	1888	'HMS
	1889	Function MCI_HMS_HOUR(hms As DWord) As Byte
	1890	Return (&HFF AND (hms))
	1891	End Function
	1892	Function MCI_HMS_MINUTE(hms As DWord) As Byte
	1893	Return (&HFF AND ((hms)>> 8))
	1894	End Function
	1895	Function MCI_HMS_SECOND(hms As DWord) As Byte
	1896	Return (&HFF AND ((hms)>>16))
	1897	End Function
	1898	Function MCI_MAKE_HMS(hours As Byte, minutes As Byte, seconds As Byte) As DWord
	1899	Return MAKELONG(hours,MAKEWORD(minutes,seconds))
	1900	End Function
	1901
	1902	' flags for wParam of MM_MCINOTIFY message
	1903	Const MCI_NOTIFY_SUCCESSFUL = &H0001
	1904	Const MCI_NOTIFY_SUPERSEDED = &H0002
	1905	Const MCI_NOTIFY_ABORTED = &H0004
	1906	Const MCI_NOTIFY_FAILURE = &H0008
	1907
	1908	' common flags for dwFlags parameter of MCI command messages
	1909	Const MCI_NOTIFY = &H00000001
	1910	Const MCI_WAIT = &H00000002
	1911	Const MCI_FROM = &H00000004
	1912	Const MCI_TO = &H00000008
	1913	Const MCI_TRACK = &H00000010
	1914
	1915	' flags for dwFlags parameter of MCI_OPEN command message
	1916	Const MCI_OPEN_SHAREABLE = &H00000100
	1917	Const MCI_OPEN_ELEMENT = &H00000200
	1918	Const MCI_OPEN_ALIAS = &H00000400
	1919	Const MCI_OPEN_ELEMENT_ID = &H00000800
	1920	Const MCI_OPEN_TYPE_ID = &H00001000
	1921	Const MCI_OPEN_TYPE = &H00002000
	1922
	1923	' flags for dwFlags parameter of MCI_SEEK command message
	1924	Const MCI_SEEK_TO_START = &H00000100
	1925	Const MCI_SEEK_TO_END = &H00000200
	1926
	1927	' flags for dwFlags parameter of MCI_STATUS command message
	1928	Const MCI_STATUS_ITEM = &H00000100
	1929	Const MCI_STATUS_START = &H00000200
	1930
	1931	' flags for dwItem field of the MCI_STATUS_PARMS parameter block
	1932	Const MCI_STATUS_LENGTH = &H00000001
	1933	Const MCI_STATUS_POSITION = &H00000002
	1934	Const MCI_STATUS_NUMBER_OF_TRACKS = &H00000003
	1935	Const MCI_STATUS_MODE = &H00000004
	1936	Const MCI_STATUS_MEDIA_PRESENT = &H00000005
	1937	Const MCI_STATUS_TIME_FORMAT = &H00000006
	1938	Const MCI_STATUS_READY = &H00000007
	1939	Const MCI_STATUS_CURRENT_TRACK = &H00000008
	1940
	1941	' flags for dwFlags parameter of MCI_INFO command message
	1942	Const MCI_INFO_PRODUCT = &H00000100
	1943	Const MCI_INFO_FILE = &H00000200
	1944	Const MCI_INFO_MEDIA_UPC = &H00000400
	1945	Const MCI_INFO_MEDIA_IDENTITY = &H00000800
	1946	Const MCI_INFO_NAME = &H00001000
	1947	Const MCI_INFO_COPYRIGHT = &H00002000
	1948
	1949	' flags for dwFlags parameter of MCI_GETDEVCAPS command message
	1950	Const MCI_GETDEVCAPS_ITEM = &H00000100
	1951
	1952	' flags for dwItem field of the MCI_GETDEVCAPS_PARMS parameter block
	1953	Const MCI_GETDEVCAPS_CAN_RECORD = &H00000001
	1954	Const MCI_GETDEVCAPS_HAS_AUDIO = &H00000002
	1955	Const MCI_GETDEVCAPS_HAS_VIDEO = &H00000003
	1956	Const MCI_GETDEVCAPS_DEVICE_TYPE = &H00000004
	1957	Const MCI_GETDEVCAPS_USES_FILES = &H00000005
	1958	Const MCI_GETDEVCAPS_COMPOUND_DEVICE = &H00000006
	1959	Const MCI_GETDEVCAPS_CAN_EJECT = &H00000007
	1960	Const MCI_GETDEVCAPS_CAN_PLAY = &H00000008
	1961	Const MCI_GETDEVCAPS_CAN_SAVE = &H00000009
	1962
	1963	' flags for dwFlags parameter of MCI_SYSINFO command message
	1964	Const MCI_SYSINFO_QUANTITY = &H00000100
	1965	Const MCI_SYSINFO_OPEN = &H00000200
	1966	Const MCI_SYSINFO_NAME = &H00000400
	1967	Const MCI_SYSINFO_INSTALLNAME = &H00000800
	1968
	1969	' flags for dwFlags parameter of MCI_SET command message
	1970	Const MCI_SET_DOOR_OPEN = &H00000100
	1971	Const MCI_SET_DOOR_CLOSED = &H00000200
	1972	Const MCI_SET_TIME_FORMAT = &H00000400
	1973	Const MCI_SET_AUDIO = &H00000800
	1974	Const MCI_SET_VIDEO = &H00001000
	1975	Const MCI_SET_ON = &H00002000
	1976	Const MCI_SET_OFF = &H00004000
	1977
	1978	' flags for dwAudio field of MCI_SET_PARMS or MCI_SEQ_SET_PARMS
	1979	Const MCI_SET_AUDIO_ALL = &H00000000
	1980	Const MCI_SET_AUDIO_LEFT = &H00000001
	1981	Const MCI_SET_AUDIO_RIGHT = &H00000002
	1982
	1983	' flags for dwFlags parameter of MCI_BREAK command message
	1984	Const MCI_BREAK_KEY = &H00000100
	1985	Const MCI_BREAK_HWND = &H00000200
	1986	Const MCI_BREAK_OFF = &H00000400
	1987
	1988	' flags for dwFlags parameter of MCI_RECORD command message
	1989	Const MCI_RECORD_INSERT = &H00000100
	1990	Const MCI_RECORD_OVERWRITE = &H00000200
	1991
	1992	' flags for dwFlags parameter of MCI_SAVE command message
	1993	Const MCI_SAVE_FILE = &H00000100
	1994
	1995	' flags for dwFlags parameter of MCI_LOAD command message
	1996	Const MCI_LOAD_FILE = &H00000100
	1997
	1998	Type MCI_GENERIC_PARMS
	1999	dwCallback As DWord
	2000	End Type
	2001	TypeDef PMCI_GENERIC_PARMS = *MCI_GENERIC_PARMS
	2002	TypeDef LPMCI_GENERIC_PARMS = *MCI_GENERIC_PARMS
	2003
[158]	2004	Type MCI_OPEN_PARMS
[1]	2005	dwCallback As DWord
	2006	wDeviceID As DWord
[158]	2007	lpstrDeviceType As LPSTR
	2008	lpstrElementName As LPSTR
	2009	lpstrAlias As LPSTR
[1]	2010	End Type
[95]	2011	TypeDef PMCI_OPEN_PARMS = *MCI_OPEN_PARMS
	2012	TypeDef LPMCI_OPEN_PARMS = *MCI_OPEN_PARMS
[1]	2013
	2014	Type MCI_PLAY_PARMS
	2015	dwCallback As DWord
	2016	dwFrom As DWord
	2017	dwTo As DWord
	2018	End Type
[95]	2019	TypeDef PMCI_PLAY_PARMS = *MCI_PLAY_PARMS
	2020	TypeDef LPMCI_PLAY_PARMS = *MCI_PLAY_PARMS
[1]	2021
	2022	Type MCI_SEEK_PARMS
	2023	dwCallback As DWord
	2024	dwTo As DWord
	2025	End Type
[95]	2026	TypeDef PMCI_SEEK_PARMS = *MCI_SEEK_PARMS
	2027	TypeDef LPMCI_SEEK_PARMS = *MCI_SEEK_PARMS
[1]	2028
[95]	2029	Type MCI_STATUS_PARMS
	2030	dwCallback As DWord
	2031	dwReturn As DWord
	2032	dwItem As DWord
	2033	dwTrack As DWord
	2034	End Type
	2035	TypeDef PMCI_STATUS_PARMS = *MCI_STATUS_PARMS
	2036	TypeDef LPMCI_STATUS_PARMS = *MCI_STATUS_PARMS
	2037
[141]	2038	Type MCI_INFO_PARMSW
	2039	dwCallback As DWord
	2040	lpstrReturn As LPWSTR
	2041	dwRetSize As DWord
	2042	End Type
	2043	TypeDef PMCI_INFO_PARMSW = *MCI_INFO_PARMSW
	2044	TypeDef LPMCI_INFO_PARMSW = *MCI_INFO_PARMSW
[158]	2045
[95]	2046	Type MCI_INFO_PARMSA
	2047	dwCallback As DWord
	2048	lpstrReturn As LPSTR
	2049	dwRetSize As DWord
	2050	End Type
	2051	TypeDef PMCI_INFO_PARMSA = *MCI_INFO_PARMSA
	2052	TypeDef LPMCI_INFO_PARMSA = *MCI_INFO_PARMSA
[158]	2053
[141]	2054	#ifdef UNICODE
	2055	TypeDef MCI_INFO_PARMS = MCI_INFO_PARMSW
[158]	2056	TypeDef PMCI_INFO_PARMS = PMCI_INFO_PARMSW
	2057	TypeDef LPMCI_INFO_PARMS = LPMCI_INFO_PARMSW
[141]	2058	#else
[95]	2059	TypeDef MCI_INFO_PARMS = MCI_INFO_PARMSA
[158]	2060	TypeDef PMCI_INFO_PARMS = PMCI_INFO_PARMSA
	2061	TypeDef LPMCI_INFO_PARMS = LPMCI_INFO_PARMSA
[141]	2062	#endif
[95]	2063
	2064	Type MCI_GETDEVCAPS_PARMS
	2065	dwCallback As DWord
	2066	dwReturn As DWord
	2067	dwItem As DWord
	2068	End Type
	2069	TypeDef PMCI_GETDEVCAPS_PARMS = *MCI_GETDEVCAPS_PARMS
	2070	TypeDef LPMCI_GETDEVCAPS_PARMS = *MCI_GETDEVCAPS_PARMS
	2071
[141]	2072	Type MCI_SYSINFO_PARMSW
	2073	dwCallback As DWord
	2074	lpstrReturn As LPWSTR
	2075	dwRetSize As DWord
	2076	dwNumber As DWord
	2077	wDeviceType As DWord
	2078	End Type
	2079	TypeDef PMCI_SYSINFO_PARMSW = *MCI_SYSINFO_PARMSW
	2080	TypeDef LPMCI_SYSINFO_PARMSW = *MCI_SYSINFO_PARMSW
[158]	2081
[95]	2082	Type MCI_SYSINFO_PARMSA
	2083	dwCallback As DWord
	2084	lpstrReturn As LPSTR
	2085	dwRetSize As DWord
	2086	dwNumber As DWord
	2087	wDeviceType As DWord
	2088	End Type
	2089	TypeDef PMCI_SYSINFO_PARMSA = *MCI_SYSINFO_PARMSA
	2090	TypeDef LPMCI_SYSINFO_PARMSA = *MCI_SYSINFO_PARMSA
[158]	2091
[141]	2092	#ifdef UNICODE
[158]	2093	TypeDef MCI_SYSINFO_PARMS = MCI_SYSINFO_PARMSW
	2094	TypeDef PMCI_SYSINFO_PARMS = PMCI_SYSINFO_PARMSW
	2095	TypeDef LPMCI_SYSINFO_PARMS = LPMCI_SYSINFO_PARMSW
	2096	#else
[95]	2097	TypeDef MCI_SYSINFO_PARMS = MCI_SYSINFO_PARMSA
[158]	2098	TypeDef PMCI_SYSINFO_PARMS = PMCI_SYSINFO_PARMSA
	2099	TypeDef LPMCI_SYSINFO_PARMS = LPMCI_SYSINFO_PARMSA
[141]	2100	#endif
[95]	2101
[1]	2102	Type MCI_SET_PARMS
	2103	dwCallback As DWord
	2104	dwTimeFormat As DWord
	2105	dwAudio As DWord
	2106	End Type
[95]	2107	TypeDef PMCI_SET_PARMS = *MCI_SET_PARMS
	2108	TypeDef LPMCI_SET_PARMS = *MCI_SET_PARMS
[1]	2109
[95]	2110	Type MCI_BREAK_PARMS
[1]	2111	dwCallback As DWord
[95]	2112	nVirtKey As Long
	2113	hwndBreak As HWND
[1]	2114	End Type
[95]	2115	TypeDef PMCI_BREAK_PARMS = *MCI_BREAK_PARMS
	2116	TypeDef LPMCI_BREAK_PARMS = *MCI_BREAK_PARMS
[1]	2117
[141]	2118	Type MCI_SAVE_PARMSW
	2119	dwCallback As DWord
[158]	2120	lpfilename As LPWSTR
[141]	2121	End Type
	2122	TypeDef PMCI_SAVE_PARMSW = *MCI_SAVE_PARMSW
	2123	TypeDef LPMCI_SAVE_PARMSW = *MCI_SAVE_PARMSW
[158]	2124
[95]	2125	Type MCI_SAVE_PARMSA
	2126	dwCallback As DWord
[158]	2127	lpfilename As LPSTR
[95]	2128	End Type
	2129	TypeDef PMCI_SAVE_PARMSA = *MCI_SAVE_PARMSA
	2130	TypeDef LPMCI_SAVE_PARMSA = *MCI_SAVE_PARMSA
[158]	2131
[141]	2132	#ifdef UNICODE
	2133	TypeDef MCI_SAVE_PARMS = MCI_SAVE_PARMSW
[158]	2134	TypeDef PMCI_SAVE_PARMS = PMCI_SAVE_PARMSW
	2135	TypeDef LPMCI_SAVE_PARMS = LPMCI_SAVE_PARMSW
[141]	2136	#else
[95]	2137	TypeDef MCI_SAVE_PARMS = MCI_SAVE_PARMSA
[158]	2138	TypeDef PMCI_SAVE_PARMS = PMCI_SAVE_PARMSA
	2139	TypeDef LPMCI_SAVE_PARMS = LPMCI_SAVE_PARMSA
[141]	2140	#endif
[1]	2141
[141]	2142	Type MCI_LOAD_PARMSW
	2143	dwCallback As DWord
[158]	2144	lpfilename As LPWSTR
[141]	2145	End Type
	2146	TypeDef PMCI_LOAD_PARMSW = *MCI_LOAD_PARMSW
	2147	TypeDef LPMCI_LOAD_PARMSW = *MCI_LOAD_PARMSW
[158]	2148
[95]	2149	Type MCI_LOAD_PARMSA
	2150	dwCallback As DWord
[158]	2151	lpfilename As LPSTR
[95]	2152	End Type
	2153	TypeDef PMCI_LOAD_PARMSA = *MCI_LOAD_PARMSA
	2154	TypeDef LPMCI_LOAD_PARMSA = *MCI_LOAD_PARMSA
[158]	2155
[141]	2156	#ifdef UNICODE
	2157	TypeDef MCI_LOAD_PARMS = MCI_LOAD_PARMSW
[158]	2158	TypeDef PMCI_LOAD_PARMS = PMCI_LOAD_PARMSW
	2159	TypeDef LPMCI_LOAD_PARMS = LPMCI_LOAD_PARMSW
[141]	2160	#else
[95]	2161	TypeDef MCI_LOAD_PARMS = MCI_LOAD_PARMSA
[158]	2162	TypeDef PMCI_LOAD_PARMS = PMCI_LOAD_PARMSA
	2163	TypeDef LPMCI_LOAD_PARMS = LPMCI_LOAD_PARMSA
[141]	2164	#endif
[1]	2165
[95]	2166	Type MCI_RECORD_PARMS
	2167	dwCallback As DWord
	2168	dwFrom As DWord
	2169	dwTo As DWord
	2170	End Type
	2171	TypeDef PMCI_RECORD_PARMS = *MCI_RECORD_PARMS
	2172	TypeDef LPMCI_RECORD_PARMS = *MCI_RECORD_PARMS
[1]	2173
[95]	2174	' MCI extensions for videodisc devices
	2175	Const MCI_VD_MODE_PARK = (MCI_VD_OFFSET + 1)
	2176	Const MCI_VD_MEDIA_CLV = (MCI_VD_OFFSET + 2)
	2177	Const MCI_VD_MEDIA_CAV = (MCI_VD_OFFSET + 3)
	2178	Const MCI_VD_MEDIA_OTHER = (MCI_VD_OFFSET + 4)
	2179	Const MCI_VD_FORMAT_TRACK = &H4001
	2180	Const MCI_VD_PLAY_REVERSE = &H00010000
	2181	Const MCI_VD_PLAY_FAST = &H00020000
	2182	Const MCI_VD_PLAY_SPEED = &H00040000
	2183	Const MCI_VD_PLAY_SCAN = &H00080000
	2184	Const MCI_VD_PLAY_SLOW = &H00100000
	2185	Const MCI_VD_SEEK_REVERSE = &H00010000
	2186	Const MCI_VD_STATUS_SPEED = &H00004002
	2187	Const MCI_VD_STATUS_FORWARD = &H00004003
	2188	Const MCI_VD_STATUS_MEDIA_TYPE = &H00004004
	2189	Const MCI_VD_STATUS_SIDE = &H00004005
	2190	Const MCI_VD_STATUS_DISC_SIZE = &H00004006
	2191	Const MCI_VD_GETDEVCAPS_CLV = &H00010000
	2192	Const MCI_VD_GETDEVCAPS_CAV = &H00020000
	2193	Const MCI_VD_SPIN_UP = &H00010000
	2194	Const MCI_VD_SPIN_DOWN = &H00020000
	2195	Const MCI_VD_GETDEVCAPS_CAN_REVERSE = &H00004002
	2196	Const MCI_VD_GETDEVCAPS_FAST_RATE = &H00004003
	2197	Const MCI_VD_GETDEVCAPS_SLOW_RATE = &H00004004
	2198	Const MCI_VD_GETDEVCAPS_NORMAL_RATE = &H00004005
	2199	Const MCI_VD_STEP_FRAMES = &H00010000
	2200	Const MCI_VD_STEP_REVERSE = &H00020000
	2201	Const MCI_VD_ESCAPE_STRING = &H00000100
[1]	2202
[95]	2203	Type MCI_VD_PLAY_PARMS
	2204	dwCallback As DWord
	2205	dwFrom As DWord
	2206	dwTo As DWord
	2207	dwSpeed As DWord
	2208	End Type
	2209	TypeDef PMCI_VD_PLAY_PARMS = *MCI_VD_PLAY_PARMS
	2210	TypeDef LPMCI_VD_PLAY_PARMS = *MCI_VD_PLAY_PARMS
[1]	2211
[95]	2212	Type MCI_VD_STEP_PARMS
	2213	dwCallback As DWord
	2214	dwFrames As DWord
	2215	End Type
	2216	TypeDef PMCI_VD_STEP_PARMS = *MCI_VD_STEP_PARMS
	2217	TypeDef LPMCI_VD_STEP_PARMS = *MCI_VD_STEP_PARMS
[1]	2218
[141]	2219	Type MCI_VD_ESCAPE_PARMSW
	2220	dwCallback As DWord
[158]	2221	lpstrCommand As LPWSTR
[141]	2222	End Type
	2223	TypeDef PMCI_VD_ESCAPE_PARMSW = *MCI_VD_ESCAPE_PARMSW
	2224	TypeDef LPMCI_VD_ESCAPE_PARMSW = *MCI_VD_ESCAPE_PARMSW
[158]	2225
[95]	2226	Type MCI_VD_ESCAPE_PARMSA
	2227	dwCallback As DWord
[158]	2228	lpstrCommand As LPSTR
[95]	2229	End Type
	2230	TypeDef PMCI_VD_ESCAPE_PARMSA = *MCI_VD_ESCAPE_PARMSA
	2231	TypeDef LPMCI_VD_ESCAPE_PARMSA = *MCI_VD_ESCAPE_PARMSA
[158]	2232
[141]	2233	#ifdef UNICODE
	2234	TypeDef MCI_VD_ESCAPE_PARMS = MCI_VD_ESCAPE_PARMSW
[158]	2235	TypeDef PMCI_VD_ESCAPE_PARMS = PMCI_VD_ESCAPE_PARMSW
	2236	TypeDef LPMCI_VD_ESCAPE_PARMS = LPMCI_VD_ESCAPE_PARMSW
[141]	2237	#else
[95]	2238	TypeDef MCI_VD_ESCAPE_PARMS = MCI_VD_ESCAPE_PARMSA
[158]	2239	TypeDef PMCI_VD_ESCAPE_PARMS = PMCI_VD_ESCAPE_PARMSA
	2240	TypeDef LPMCI_VD_ESCAPE_PARMS = LPMCI_VD_ESCAPE_PARMSA
[141]	2241	#endif
[1]	2242
[95]	2243	' MCI extensions for CD audio devices
	2244	Const MCI_CDA_STATUS_TYPE_TRACK = &H00004001
	2245	Const MCI_CDA_TRACK_AUDIO = (MCI_CD_OFFSET + 0)
	2246	Const MCI_CDA_TRACK_OTHER = (MCI_CD_OFFSET + 1)
[1]	2247
[95]	2248	' MCI extensions for waveform audio devices
	2249	Const MCI_WAVE_PCM = (MCI_WAVE_OFFSET + 0)
	2250	Const MCI_WAVE_MAPPER = (MCI_WAVE_OFFSET + 1)
	2251	Const MCI_WAVE_OPEN_BUFFER = &H00010000
	2252	Const MCI_WAVE_SET_FORMATTAG = &H00010000
	2253	Const MCI_WAVE_SET_CHANNELS = &H00020000
	2254	Const MCI_WAVE_SET_SAMPLESPERSEC = &H00040000
	2255	Const MCI_WAVE_SET_AVGBYTESPERSEC = &H00080000
	2256	Const MCI_WAVE_SET_BLOCKALIGN = &H00100000
	2257	Const MCI_WAVE_SET_BITSPERSAMPLE = &H00200000
	2258	Const MCI_WAVE_INPUT = &H00400000
	2259	Const MCI_WAVE_OUTPUT = &H00800000
	2260	Const MCI_WAVE_STATUS_FORMATTAG = &H00004001
	2261	Const MCI_WAVE_STATUS_CHANNELS = &H00004002
	2262	Const MCI_WAVE_STATUS_SAMPLESPERSEC = &H00004003
	2263	Const MCI_WAVE_STATUS_AVGBYTESPERSEC = &H00004004
	2264	Const MCI_WAVE_STATUS_BLOCKALIGN = &H00004005
	2265	Const MCI_WAVE_STATUS_BITSPERSAMPLE = &H00004006
	2266	Const MCI_WAVE_STATUS_LEVEL = &H00004007
	2267	Const MCI_WAVE_SET_ANYINPUT = &H04000000
	2268	Const MCI_WAVE_SET_ANYOUTPUT = &H08000000
	2269	Const MCI_WAVE_GETDEVCAPS_INPUTS = &H00004001
	2270	Const MCI_WAVE_GETDEVCAPS_OUTPUTS = &H00004002
[1]	2271
[141]	2272	Type MCI_WAVE_OPEN_PARMSW
	2273	dwCallback As DWord
	2274	wDeviceID As MCIDEVICEID
[158]	2275	lpstrDeviceType As LPWSTR
	2276	lpstrElementName As LPWSTR
	2277	lpstrAlias As LPWSTR
[141]	2278	dwBufferSeconds As DWord
	2279	End Type
	2280	TypeDef PMCI_WAVE_OPEN_PARMSW = *MCI_WAVE_OPEN_PARMSW
	2281	TypeDef LPMCI_WAVE_OPEN_PARMSW = *MCI_WAVE_OPEN_PARMSW
[158]	2282
[95]	2283	Type MCI_WAVE_OPEN_PARMSA
	2284	dwCallback As DWord
	2285	wDeviceID As MCIDEVICEID
[158]	2286	lpstrDeviceType As LPSTR
	2287	lpstrElementName As LPSTR
	2288	lpstrAlias As LPSTR
[95]	2289	dwBufferSeconds As DWord
	2290	End Type
	2291	TypeDef PMCI_WAVE_OPEN_PARMSA = *MCI_WAVE_OPEN_PARMSA
	2292	TypeDef LPMCI_WAVE_OPEN_PARMSA = *MCI_WAVE_OPEN_PARMSA
[158]	2293
[141]	2294	#ifdef UNICODE
	2295	TypeDef MCI_WAVE_OPEN_PARMS = MCI_WAVE_OPEN_PARMSW
[158]	2296	TypeDef PMCI_WAVE_OPEN_PARMS = PMCI_WAVE_OPEN_PARMSW
	2297	TypeDef LPMCI_WAVE_OPEN_PARMS = LPMCI_WAVE_OPEN_PARMSW
[141]	2298	#else
[95]	2299	TypeDef MCI_WAVE_OPEN_PARMS = MCI_WAVE_OPEN_PARMSA
[158]	2300	TypeDef PMCI_WAVE_OPEN_PARMS = PMCI_WAVE_OPEN_PARMSA
	2301	TypeDef LPMCI_WAVE_OPEN_PARMS = LPMCI_WAVE_OPEN_PARMSA
[141]	2302	#endif
[1]	2303
[95]	2304	Type MCI_WAVE_DELETE_PARMS
	2305	dwCallback As DWord
	2306	dwFrom As DWord
	2307	dwTo As DWord
	2308	End Type
	2309	TypeDef PMCI_WAVE_DELETE_PARMS = *MCI_WAVE_DELETE_PARMS
	2310	TypeDef LPMCI_WAVE_DELETE_PARMS = *MCI_WAVE_DELETE_PARMS
[1]	2311
[95]	2312	Type MCI_WAVE_SET_PARMS
	2313	dwCallback As DWord
	2314	dwTimeFormat As DWord
	2315	dwAudio As DWord
	2316	wInput As DWord
	2317	wOutput As DWord
	2318	wFormatTag As Word
	2319	wReserved2 As Word
	2320	nChannels As Word
	2321	wReserved3 As Word
	2322	nSamplesPerSec As DWord
	2323	nAvgBytesPerSec As DWord
	2324	nBlockAlign As Word
	2325	wReserved4 As Word
	2326	wBitsPerSample As Word
	2327	wReserved5 As Word
	2328	End Type
	2329	TypeDef PMCI_WAVE_SET_PARMS = *MCI_WAVE_SET_PARMS
	2330	TypeDef LPMCI_WAVE_SET_PARMS = *MCI_WAVE_SET_PARMS
[1]	2331
[95]	2332	' MCI extensions for MIDI sequencer devices
	2333	Const MCI_SEQ_DIV_PPQN = (0 + MCI_SEQ_OFFSET)
	2334	Const MCI_SEQ_DIV_SMPTE_24 = (1 + MCI_SEQ_OFFSET)
	2335	Const MCI_SEQ_DIV_SMPTE_25 = (2 + MCI_SEQ_OFFSET)
	2336	Const MCI_SEQ_DIV_SMPTE_30DROP = (3 + MCI_SEQ_OFFSET)
	2337	Const MCI_SEQ_DIV_SMPTE_30 = (4 + MCI_SEQ_OFFSET)
	2338	Const MCI_SEQ_FORMAT_SONGPTR = &H4001
	2339	Const MCI_SEQ_FILE = &H4002
	2340	Const MCI_SEQ_MIDI = &H4003
	2341	Const MCI_SEQ_SMPTE = &H4004
	2342	Const MCI_SEQ_NONE = 65533
	2343	Const MCI_SEQ_MAPPER = 65535
	2344	Const MCI_SEQ_STATUS_TEMPO = &H00004002
	2345	Const MCI_SEQ_STATUS_PORT = &H00004003
	2346	Const MCI_SEQ_STATUS_SLAVE = &H00004007
	2347	Const MCI_SEQ_STATUS_MASTER = &H00004008
	2348	Const MCI_SEQ_STATUS_OFFSET = &H00004009
	2349	Const MCI_SEQ_STATUS_DIVTYPE = &H0000400A
	2350	Const MCI_SEQ_STATUS_NAME = &H0000400B
	2351	Const MCI_SEQ_STATUS_COPYRIGHT = &H0000400C
	2352	Const MCI_SEQ_SET_TEMPO = &H00010000
	2353	Const MCI_SEQ_SET_PORT = &H00020000
	2354	Const MCI_SEQ_SET_SLAVE = &H00040000
	2355	Const MCI_SEQ_SET_MASTER = &H00080000
	2356	Const MCI_SEQ_SET_OFFSET = &H01000000
[1]	2357
[95]	2358	Type MCI_SEQ_SET_PARMS
	2359	dwCallback As DWord
	2360	dwTimeFormat As DWord
	2361	dwAudio As DWord
	2362	dwTempo As DWord
	2363	dwPort As DWord
	2364	dwSlave As DWord
	2365	dwMaster As DWord
	2366	dwOffset As DWord
	2367	End Type
	2368	TypeDef PMCI_SEQ_SET_PARMS = *MCI_SEQ_SET_PARMS
	2369	TypeDef LPMCI_SEQ_SET_PARMS = *MCI_SEQ_SET_PARMS
[1]	2370
[95]	2371	' MCI extensions for animation devices
	2372	Const MCI_ANIM_OPEN_WS = &H00010000
	2373	Const MCI_ANIM_OPEN_PARENT = &H00020000
	2374	Const MCI_ANIM_OPEN_NOSTATIC = &H00040000
	2375	Const MCI_ANIM_PLAY_SPEED = &H00010000
	2376	Const MCI_ANIM_PLAY_REVERSE = &H00020000
	2377	Const MCI_ANIM_PLAY_FAST = &H00040000
	2378	Const MCI_ANIM_PLAY_SLOW = &H00080000
	2379	Const MCI_ANIM_PLAY_SCAN = &H00100000
	2380	Const MCI_ANIM_STEP_REVERSE = &H00010000
	2381	Const MCI_ANIM_STEP_FRAMES = &H00020000
	2382	Const MCI_ANIM_STATUS_SPEED = &H00004001
	2383	Const MCI_ANIM_STATUS_FORWARD = &H00004002
	2384	Const MCI_ANIM_STATUS_HWND = &H00004003
	2385	Const MCI_ANIM_STATUS_HPAL = &H00004004
	2386	Const MCI_ANIM_STATUS_STRETCH = &H00004005
	2387	Const MCI_ANIM_INFO_TEXT = &H00010000
	2388	Const MCI_ANIM_GETDEVCAPS_CAN_REVERSE = &H00004001
	2389	Const MCI_ANIM_GETDEVCAPS_FAST_RATE = &H00004002
	2390	Const MCI_ANIM_GETDEVCAPS_SLOW_RATE = &H00004003
	2391	Const MCI_ANIM_GETDEVCAPS_NORMAL_RATE = &H00004004
	2392	Const MCI_ANIM_GETDEVCAPS_PALETTES = &H00004006
	2393	Const MCI_ANIM_GETDEVCAPS_CAN_STRETCH = &H00004007
	2394	Const MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = &H00004008
	2395	Const MCI_ANIM_REALIZE_NORM = &H00010000
	2396	Const MCI_ANIM_REALIZE_BKGD = &H00020000
	2397	Const MCI_ANIM_WINDOW_HWND = &H00010000
	2398	Const MCI_ANIM_WINDOW_STATE = &H00040000
	2399	Const MCI_ANIM_WINDOW_TEXT = &H00080000
	2400	Const MCI_ANIM_WINDOW_ENABLE_STRETCH = &H00100000
	2401	Const MCI_ANIM_WINDOW_DISABLE_STRETCH = &H00200000
	2402	Const MCI_ANIM_WINDOW_DEFAULT = &H00000000
	2403	Const MCI_ANIM_RECT = &H00010000
	2404	Const MCI_ANIM_PUT_SOURCE = &H00020000
	2405	Const MCI_ANIM_PUT_DESTINATION = &H00040000
	2406	Const MCI_ANIM_WHERE_SOURCE = &H00020000
	2407	Const MCI_ANIM_WHERE_DESTINATION = &H00040000
	2408	Const MCI_ANIM_UPDATE_HDC = &H00020000
[1]	2409
[141]	2410	Type MCI_ANIM_OPEN_PARMSW
	2411	dwCallback As DWord
	2412	wDeviceID As MCIDEVICEID
[158]	2413	lpstrDeviceType As LPWSTR
	2414	lpstrElementName As LPWSTR
	2415	lpstrAlias As LPWSTR
[141]	2416	dwStyle As DWord
	2417	hWndParent As HWND
	2418	End Type
	2419	TypeDef PMCI_ANIM_OPEN_PARMSW = *MCI_ANIM_OPEN_PARMSW
	2420	TypeDef LPMCI_ANIM_OPEN_PARMSW = *MCI_ANIM_OPEN_PARMSW
[158]	2421
[95]	2422	Type MCI_ANIM_OPEN_PARMSA
	2423	dwCallback As DWord
	2424	wDeviceID As MCIDEVICEID
[158]	2425	lpstrDeviceType As LPSTR
	2426	lpstrElementName As LPSTR
	2427	lpstrAlias As LPSTR
[95]	2428	dwStyle As DWord
	2429	hWndParent As HWND
	2430	End Type
	2431	TypeDef PMCI_ANIM_OPEN_PARMSA = *MCI_ANIM_OPEN_PARMSA
	2432	TypeDef LPMCI_ANIM_OPEN_PARMSA = *MCI_ANIM_OPEN_PARMSA
[158]	2433
[141]	2434	#ifdef UNICODE
	2435	TypeDef MCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMSW
[158]	2436	TypeDef PMCI_ANIM_OPEN_PARMS = PMCI_ANIM_OPEN_PARMSW
	2437	TypeDef LPMCI_ANIM_OPEN_PARMS = LPMCI_ANIM_OPEN_PARMSW
[141]	2438	#else
[95]	2439	TypeDef MCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMSA
[158]	2440	TypeDef PMCI_ANIM_OPEN_PARMS = PMCI_ANIM_OPEN_PARMSA
	2441	TypeDef LPMCI_ANIM_OPEN_PARMS = LPMCI_ANIM_OPEN_PARMSA
[141]	2442	#endif
[1]	2443
[95]	2444	Type MCI_ANIM_PLAY_PARMS
	2445	dwCallback As DWord
	2446	dwFrom As DWord
	2447	dwTo As DWord
	2448	dwSpeed As DWord
	2449	End Type
	2450	TypeDef PMCI_ANIM_PLAY_PARMS = *MCI_ANIM_PLAY_PARMS
	2451	TypeDef LPMCI_ANIM_PLAY_PARMS = *MCI_ANIM_PLAY_PARMS
[1]	2452
[95]	2453	Type MCI_ANIM_STEP_PARMS
	2454	dwCallback As DWord
	2455	dwFrames As DWord
	2456	End Type
	2457	TypeDef PMCI_ANIM_STEP_PARMS = *MCI_ANIM_STEP_PARMS
	2458	TypeDef LPMCI_ANIM_STEP_PARMS = *MCI_ANIM_STEP_PARMS
[1]	2459
[95]	2460	Type MCI_ANIM_WINDOW_PARMSA
	2461	dwCallback As DWord
	2462	hWnd As HWND
	2463	nCmdShow As DWord
[158]	2464	lpstrText As LPSTR
[95]	2465	End Type
	2466	TypeDef PMCI_ANIM_WINDOW_PARMSA = *MCI_ANIM_WINDOW_PARMSA
	2467	TypeDef LPMCI_ANIM_WINDOW_PARMSA = *MCI_ANIM_WINDOW_PARMSA
	2468	TypeDef MCI_ANIM_WINDOW_PARMS = MCI_ANIM_WINDOW_PARMSA
[158]	2469	TypeDef PMCI_ANIM_WINDOW_PARMS = PMCI_ANIM_WINDOW_PARMSA
	2470	TypeDef LPMCI_ANIM_WINDOW_PARMS = LPMCI_ANIM_WINDOW_PARMSA
[95]	2471
	2472	Type MCI_ANIM_RECT_PARMS
	2473	dwCallback As DWord
	2474	rc As RECT
	2475	End Type
	2476	TypeDef PMCI_ANIM_RECT_PARMS = *MCI_ANIM_RECT_PARMS
	2477	TypeDef LPMCI_ANIM_RECT_PARMS = *MCI_ANIM_RECT_PARMS
	2478
	2479	Type MCI_ANIM_UPDATE_PARMS
	2480	dwCallback As DWord
	2481	rc As RECT
	2482	hDC As HDC
	2483	End Type
	2484	TypeDef PMCI_ANIM_UPDATE_PARMS = *MCI_ANIM_UPDATE_PARMS
	2485	TypeDef LPMCI_ANIM_UPDATE_PARMS = *MCI_ANIM_UPDATE_PARMS
	2486
	2487	' MCI extensions for video overlay devices
	2488	Const MCI_OVLY_OPEN_WS = &H00010000
	2489	Const MCI_OVLY_OPEN_PARENT = &H00020000
	2490	Const MCI_OVLY_STATUS_HWND = &H00004001
	2491	Const MCI_OVLY_STATUS_STRETCH = &H00004002
	2492	Const MCI_OVLY_INFO_TEXT = &H00010000
	2493	Const MCI_OVLY_GETDEVCAPS_CAN_STRETCH = &H00004001
	2494	Const MCI_OVLY_GETDEVCAPS_CAN_FREEZE = &H00004002
	2495	Const MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = &H00004003
	2496	Const MCI_OVLY_WINDOW_HWND = &H00010000
	2497	Const MCI_OVLY_WINDOW_STATE = &H00040000
	2498	Const MCI_OVLY_WINDOW_TEXT = &H00080000
	2499	Const MCI_OVLY_WINDOW_ENABLE_STRETCH = &H00100000
	2500	Const MCI_OVLY_WINDOW_DISABLE_STRETCH = &H00200000
	2501	Const MCI_OVLY_WINDOW_DEFAULT = &H00000000
	2502	Const MCI_OVLY_RECT = &H00010000
	2503	Const MCI_OVLY_PUT_SOURCE = &H00020000
	2504	Const MCI_OVLY_PUT_DESTINATION = &H00040000
	2505	Const MCI_OVLY_PUT_FRAME = &H00080000
	2506	Const MCI_OVLY_PUT_VIDEO = &H00100000
	2507	Const MCI_OVLY_WHERE_SOURCE = &H00020000
	2508	Const MCI_OVLY_WHERE_DESTINATION = &H00040000
	2509	Const MCI_OVLY_WHERE_FRAME = &H00080000
	2510	Const MCI_OVLY_WHERE_VIDEO = &H00100000
	2511
[158]	2512	Type MCI_OVLY_OPEN_PARMSW
[141]	2513	dwCallback As DWord
	2514	wDeviceID As MCIDEVICEID
[158]	2515	lpstrDeviceType As LPWSTR
	2516	lpstrElementName As LPWSTR
	2517	lpstrAlias As LPWSTR
[141]	2518	dwStyle As DWord
	2519	hWndParent As HWND
	2520	End Type
	2521	TypeDef PMCI_OVLY_OPEN_PARMSW = *MCI_OVLY_OPEN_PARMSW
	2522	TypeDef LPMCI_OVLY_OPEN_PARMSW = *MCI_OVLY_OPEN_PARMSW
[158]	2523
[95]	2524	Type MCI_OVLY_OPEN_PARMSA
	2525	dwCallback As DWord
	2526	wDeviceID As MCIDEVICEID
[158]	2527	lpstrDeviceType As LPSTR
	2528	lpstrElementName As LPSTR
	2529	lpstrAlias As LPSTR
[95]	2530	dwStyle As DWord
	2531	hWndParent As HWND
	2532	End Type
	2533	TypeDef PMCI_OVLY_OPEN_PARMSA = *MCI_OVLY_OPEN_PARMSA
	2534	TypeDef LPMCI_OVLY_OPEN_PARMSA = *MCI_OVLY_OPEN_PARMSA
[158]	2535
[141]	2536	#ifdef UNICODE
	2537	TypeDef MCI_OVLY_OPEN_PARMS = MCI_OVLY_OPEN_PARMSW
[158]	2538	TypeDef PMCI_OVLY_OPEN_PARMS = PMCI_OVLY_OPEN_PARMSW
	2539	TypeDef LPMCI_OVLY_OPEN_PARMS = LPMCI_OVLY_OPEN_PARMSW
[141]	2540	#else
[95]	2541	TypeDef MCI_OVLY_OPEN_PARMS = MCI_OVLY_OPEN_PARMSA
[158]	2542	TypeDef PMCI_OVLY_OPEN_PARMS = PMCI_OVLY_OPEN_PARMSA
	2543	TypeDef LPMCI_OVLY_OPEN_PARMS = LPMCI_OVLY_OPEN_PARMSA
[141]	2544	#endif
[95]	2545
[181]	2546	Type MCI_OVLY_WINDOW_PARMSA
	2547	dwCallback As DWord
	2548	hWnd As HWND
	2549	nCmdShow As DWord
	2550	lpstrText As LPSTR
	2551	End Type
	2552	TypeDef PMCI_OVLY_WINDOW_PARMSA = *MCI_OVLY_WINDOW_PARMSA
	2553	TypeDef LPMCI_OVLY_WINDOW_PARMSA = *MCI_OVLY_WINDOW_PARMSA
	2554
[141]	2555	Type MCI_OVLY_WINDOW_PARMSW
	2556	dwCallback As DWord
	2557	hWnd As HWND
	2558	nCmdShow As DWord
[158]	2559	lpstrText As LPWSTR
[141]	2560	End Type
	2561	TypeDef PMCI_OVLY_WINDOW_PARMSW = *MCI_OVLY_WINDOW_PARMSW
	2562	TypeDef LPMCI_OVLY_WINDOW_PARMSW = *MCI_OVLY_WINDOW_PARMSW
[158]	2563
[141]	2564	#ifdef UNICODE
	2565	TypeDef MCI_OVLY_WINDOW_PARMS = MCI_OVLY_WINDOW_PARMSW
[158]	2566	TypeDef PMCI_OVLY_WINDOW_PARMS = PMCI_OVLY_WINDOW_PARMSW
	2567	TypeDef LPMCI_OVLY_WINDOW_PARMS = LPMCI_OVLY_WINDOW_PARMSW
[141]	2568	#else
[95]	2569	TypeDef MCI_OVLY_WINDOW_PARMS = MCI_OVLY_WINDOW_PARMSA
[158]	2570	TypeDef PMCI_OVLY_WINDOW_PARMS = PMCI_OVLY_WINDOW_PARMSA
	2571	TypeDef LPMCI_OVLY_WINDOW_PARMS = LPMCI_OVLY_WINDOW_PARMSA
[141]	2572	#endif
[95]	2573
	2574	Type MCI_OVLY_RECT_PARMS
	2575	dwCallback As DWord
	2576	rc As RECT
	2577	End Type
	2578	TypeDef PMCI_OVLY_RECT_PARMS = *MCI_OVLY_RECT_PARMS
	2579	TypeDef LPMCI_OVLY_RECT_PARMS = *MCI_OVLY_RECT_PARMS
	2580
[141]	2581	Type MCI_OVLY_SAVE_PARMSW
	2582	dwCallback As DWord
[158]	2583	lpfilename As LPWSTR
[141]	2584	rc As RECT
	2585	End Type
	2586	TypeDef PMCI_OVLY_SAVE_PARMSW = *MCI_OVLY_SAVE_PARMSW
	2587	TypeDef LPMCI_OVLY_SAVE_PARMSW = *MCI_OVLY_SAVE_PARMSW
[158]	2588
[95]	2589	Type MCI_OVLY_SAVE_PARMSA
	2590	dwCallback As DWord
[158]	2591	lpfilename As LPSTR
[95]	2592	rc As RECT
	2593	End Type
	2594	TypeDef PMCI_OVLY_SAVE_PARMSA = *MCI_OVLY_SAVE_PARMSA
	2595	TypeDef LPMCI_OVLY_SAVE_PARMSA = *MCI_OVLY_SAVE_PARMSA
[158]	2596
[141]	2597	#ifdef UNICODE
	2598	TypeDef MCI_OVLY_SAVE_PARMS = MCI_OVLY_SAVE_PARMSW
[158]	2599	TypeDef PMCI_OVLY_SAVE_PARMS = PMCI_OVLY_SAVE_PARMSW
	2600	TypeDef LPMCI_OVLY_SAVE_PARMS = LPMCI_OVLY_SAVE_PARMSW
[141]	2601	#else
[95]	2602	TypeDef MCI_OVLY_SAVE_PARMS = MCI_OVLY_SAVE_PARMSA
[158]	2603	TypeDef PMCI_OVLY_SAVE_PARMS = PMCI_OVLY_SAVE_PARMSA
	2604	TypeDef LPMCI_OVLY_SAVE_PARMS = LPMCI_OVLY_SAVE_PARMSA
[141]	2605	#endif
[95]	2606
[158]	2607	Type MCI_OVLY_LOAD_PARMSW
	2608	dwCallback As DWord
	2609	lpfilename As LPWSTR
	2610	rc As RECT
	2611	End Type
	2612	TypeDef PMCI_OVLY_LOAD_PARMSW = *MCI_OVLY_LOAD_PARMSW
	2613	TypeDef LPMCI_OVLY_LOAD_PARMSW = *MCI_OVLY_LOAD_PARMSW
	2614
[95]	2615	Type MCI_OVLY_LOAD_PARMSA
	2616	dwCallback As DWord
	2617	lpfilename As LPSTR
	2618	rc As RECT
	2619	End Type
	2620	TypeDef PMCI_OVLY_LOAD_PARMSA = *MCI_OVLY_LOAD_PARMSA
	2621	TypeDef LPMCI_OVLY_LOAD_PARMSA = *MCI_OVLY_LOAD_PARMSA
[158]	2622
	2623	#ifdef UNICODE
	2624	TypeDef MCI_OVLY_LOAD_PARMS = MCI_OVLY_LOAD_PARMSW
	2625	TypeDef PMCI_OVLY_LOAD_PARMS = PMCI_OVLY_LOAD_PARMSW
	2626	TypeDef LPMCI_OVLY_LOAD_PARMS = LPMCI_OVLY_LOAD_PARMSW
	2627	#else
[95]	2628	TypeDef MCI_OVLY_LOAD_PARMS = MCI_OVLY_LOAD_PARMSA
	2629	TypeDef PMCI_OVLY_LOAD_PARMS = PMCI_OVLY_LOAD_PARMSA
	2630	TypeDef LPMCI_OVLY_LOAD_PARMS = LPMCI_OVLY_LOAD_PARMSA
[158]	2631	#endif
[95]	2632
	2633	' DISPLAY Driver extensions
	2634	Const NEWTRANSPARENT = 3
	2635	Const QUERYROPSUPPORT = 40
	2636
	2637	' DIB Driver extensions
	2638	Const SELECTDIB = 41
[158]	2639	Const DIBINDEX(n) = MAKELONG(n,&H10FF)
[95]	2640
[1]	2641	#endif '_INC_MMSYS

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format