Context Navigation

api_mmsys.sbp@ 681

Last change on this file since 681 was 681, checked in by NoWest, 15 years ago
すいません。timeSetEventでTimerクラスを導入した際に、api_mmsysを更新するのを忘れていました。イグトランスさんが修正した分の除く差分を修正。
File size: 96.9 KB

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

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

Download in other formats:

Original Format