Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

source: Include/api_mmsys.sbp@ 17

Last change on this file since 17 was 1, checked in by (none), 18 years ago

File size: 41.7 KB

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

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

Download in other formats:

Original Format