Context Navigation

source: Include/api_mmsys.sbp@ 130

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

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

Download in other formats:

Original Format