home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_refer
/
desadecs
/
mmdecs.txt
< prev
next >
Wrap
Text File
|
1992-12-01
|
28KB
|
719 lines
' ------------------------------------------------------------------------
'
' MMDECS.TXT -- Windows 3.1 Multimedia type and function Declarations for Visual Basic
'
' Copyright (C) 1992 Desaware
'
' You have a royalty-free right to use, modify, reproduce and distribute
' this file (and/or any modified version) in any way you find useful,
' provided that you agree that Desaware and Ziff-Davis Press has no
' warranty, obligation or liability for its contents.
' Refer to the Ziff-Davis Visual Basic Programmer's Guide to the
' Windows API for further information.
'
'****************************************************************************
'
' General constants and data types
'
'****************************************************************************/
' RECT copies from winapi
' You will need to uncomment this type if this file is not used
' in conjunction with ApiDecs.Bas
'Type RECT '8 Bytes
' left As Integer
' top As Integer
' right As Integer
' bottom As Integer
'End Type
type MMTIME
wType As Integer
' The following 6 byte structure is one of the following:
' A Long representing milliseconds, sample, byte count or a songpointer
' followed by 2 unused bytes.
' A 6 byte field containing Hours, minutes, seconds, frames, fps, pad
struct1 As String * 6 ' Hours, minutes, seconds, frames, fps, pad
End Type
' The following structure provides an alternative way to access the
' mmtime_tag structure
type MMTIME2
wType As Integer
longfield As Long
unused As Integer
End Type
'****************************************************************************
'
'' Installable driver support
'
'****************************************************************************/
' LPARAM of DRV_CONFIGURE message
Type DRVCONFIGINFO
dwDCISize As Long
lpszDCISectionName As Long
lpszDCIAliasName As Long
End Type
' installable driver function prototypes
Declare Function DrvClose& Lib "MMSYSTEM.DLL" (ByVal hDriver%, ByVal lParam1&, ByVal lParam2&)
Declare Function DrvOpen% Lib "MMSYSTEM.DLL" (ByVal szDriverName$, ByVal szSectionName$, ByVal lParam2&)
Declare Function DrvSendMessageClose& Lib "MMSYSTEM.DLL" (ByVal hDriver%, ByVal uMessage%, ByVal lParam1&, ByVal lParam2&)
Declare Function DrvGetModuleHandle% Lib "MMSYSTEM.DLL" (ByVal hDriver%)
Declare Function DrvDefDriverProc& Lib "MMSYSTEM.DLL" (ByVal dwDriverId&, ByVal driverID, ByVal uMessage%, ByVal lParam1&, ByVal lParam2&)
'****************************************************************************
'
'' General MMSYSTEM support
'
'****************************************************************************/
Declare Function mmsystemGetVersion% Lib "MMSYSTEM.DLL" ()
Declare Sub OutputDebugStr Lib "MMSYSTEM.DLL" (ByVal strout$)
'****************************************************************************
'
'' Sound support
'
'****************************************************************************/
Declare Function sndPlaySound% Lib "MMSYSTEM.DLL" (ByVal lpszSoundName$, ByVal uFlags%)
' wave data block header
Type WAVEHDR
lpData As Long ' pointer to locked data buffer
dwBufferLength As Long ' length of data buffer
dwBytesRecorded As Long ' used for input only
dwUser As Long ' for client's use
dwFlags As Long ' assorted flags (see defines)
dwLoops As Long ' loop control counter
lpNext As Long ' reserved for driver
reserved As Long ' reserved for driver
End Type
' waveform output device capabilities structure
Type WAVEOUTCAPS
wMid As Integer ' manufacturer ID
wPid As Integer ' product ID
vDriverVersion As Integer ' version of the driver
szPname As String *32 ' product name (NULL terminated string)
dwFormats As Long ' formats supported
wChannels As Integer ' number of sources supported
dwSupport As Long ' functionality supported by driver
End Type
' waveform input device capabilities structure
Type WAVEINCAPS
wMid As Integer ' manufacturer ID
wPid As Integer ' product ID
vDriverVersion As Integer ' version of the driver
szPname As String *32 ' product name (NULL terminated string)
dwFormats As Long ' formats supported
wChannels As Integer ' number of channels supported
End Type
' general waveform format structure (information common to all formats)
Type WAVEFORMAT
wFormatTag As Integer ' format type
nChannels As Integer ' number of channels (i.e. mono, stereo, etc.)
nSamplesPerSec As Long ' sample rate
nAvgBytesPerSec As Long ' for buffer estimation
nBlockAlign As Integer ' block size of data
End Type
' specific waveform format structure for PCM data
Type PCWAVEFORMAT
wf As WAVEFORMAT
wBitsPerSample As Integer
End Type
' waveform audio function prototypes
Declare Function waveOutGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function waveOutGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As WAVEOUTCAPS, ByVal uSize%)
Declare Function waveOutGetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwVolume&)
Declare Function waveOutSetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal dwVolume&)
Declare Function waveOutGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function waveOutOpen% Lib "MMSYSTEM.DLL" (lphWaveOut%, ByVal uDeviceID%, lpFormat As WAVEFORMAT, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function waveOutClose% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpWaveOutHdr As WAVEHDR, ByVal uSize%)
Declare Function waveOutUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpWaveOutHdr As WAVEHDR, ByVal uSize%)
Declare Function waveOutWrite% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpWaveOutHdr As WAVEHDR, ByVal uSize%)
Declare Function waveOutPause% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutRestart% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutReset% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutBreakLoop% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%)
Declare Function waveOutGetPosition% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpInfo As MMTIME, ByVal uSize%)
Declare Function waveOutGetPitch% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpdwPitch&)
Declare Function waveOutSetPitch% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, ByVal dwPitch&)
Declare Function waveOutGetPlaybackRate% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpdwRate&)
Declare Function waveOutSetPlaybackRate% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, ByVal dwRate&)
Declare Function waveOutGetID% Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, lpuDeviceID%)
Declare Function waveOutMessage& Lib "MMSYSTEM.DLL" (ByVal hWaveOut%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
Declare Function waveInGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function waveInGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As WAVEINCAPS, ByVal uSize%)
Declare Function waveInGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function waveInOpen% Lib "MMSYSTEM.DLL" (lphWaveIn%, ByVal uDeviceID%, lpFormat As WAVEFORMAT, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function waveInClose% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpWaveInHdr As WAVEHDR, ByVal uSize%)
Declare Function waveInUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpWaveInHdr As WAVEHDR, ByVal uSize%)
Declare Function waveInAddBuffer% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpWaveInHdr As WAVEHDR, ByVal uSize%)
Declare Function waveInStart% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInStop% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInReset% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%)
Declare Function waveInGetPosition% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpInfo As MMTIME, ByVal uSize%)
Declare Function waveInGetID% Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, lpuDeviceID%)
Declare Function waveInMessage& Lib "MMSYSTEM.DLL" (ByVal hWaveIn%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
'****************************************************************************
'
'' MIDI audio support
'
'****************************************************************************/
' MIDI output device capabilities structure
Type MIDIOUTCAPS
wMid As Integer ' manufacturer ID
wPid As Integer ' product ID
vDriverVersion As Integer ' version of the driver
szPname As String *32 ' product name (NULL terminated string)
wTechnology As Integer ' type of device
wVoices As Integer ' # of voices (internal synth only)
wNotes As Integer ' max # of notes (internal synth only)
wChannelMask As Integer ' channels used (internal synth only)
dwSupport As Long ' functionality supported by driver
End Type
' MIDI output device capabilities structure
Type MIDIINCAPS
wMid As Integer ' manufacturer ID
wPid As Integer ' product ID
vDriverVersion As Integer ' version of the driver
szPname As String *32 ' product name (NULL terminated string)
End Type
' MIDI data block header
Type MIDIHDR
lpData As Long ' pointer to locked data block
dwBufferLength As Long ' length of data in data block
dwBytesRecorded As Long ' used for input only
dwUser As Long ' for client's use
dwFlags As Long ' assorted flags (see defines)
lpNext As Long ' reserved for driver
reserved As Long ' reserved for driver
End Type
' MIDI function prototypes
Declare Function midiOutGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function midiOutGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As MIDIOUTCAPS, ByVal uSize%)
Declare Function midiOutGetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwVolume&)
Declare Function midiOutSetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal dwVolume&)
Declare Function midiOutGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function midiOutOpen% Lib "MMSYSTEM.DLL" (lphMidiOut&, ByVal uDeviceID%, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function midiOutClose% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%)
Declare Function midiOutPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpMidiOutHdr As MIDIHDR, ByVal uSize%)
Declare Function midiOutUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpMidiOutHdr As MIDIHDR, ByVal uSize%)
Declare Function midiOutShortMsg% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal dwMsg&)
Declare Function midiOutLongMsg% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpMidiOutHdr As MIDIHDR, ByVal uSize%)
Declare Function midiOutReset% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%)
Declare Function midiOutCachePatches% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal uBank%, lpwPatchArray%, ByVal uFlags%)
Declare Function midiOutCacheDrumPatches% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal uPatch%, lpwKeyArray%, ByVal uFlags%)
Declare Function midiOutGetID% Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, lpuDeviceID%)
Declare Function midiOutMessage& Lib "MMSYSTEM.DLL" (ByVal hMidiOut%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
Declare Function midiInGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function midiInGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As MIDIINCAPS, ByVal uSize%)
Declare Function midiInGetErrorText% Lib "MMSYSTEM.DLL" (ByVal uError%, ByVal lpText$, ByVal uSize%)
Declare Function midiInOpen% Lib "MMSYSTEM.DLL" (lphMidiIn%, ByVal uDeviceID%, ByVal dwCallback&, ByVal dwInstance&, ByVal dwFlags&)
Declare Function midiInClose% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInPrepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpMidiInHdr As MIDIHDR, ByVal uSize%)
Declare Function midiInUnprepareHeader% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpMidiInHdr As MIDIHDR, ByVal uSize%)
Declare Function midiInAddBuffer% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpMidiInHdr As MIDIHDR, ByVal uSize%)
Declare Function midiInStart% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInStop% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInReset% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%)
Declare Function midiInGetID% Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, lpuDeviceID%)
Declare Function midiInMessage& Lib "MMSYSTEM.DLL" (ByVal hMidiIn%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
'****************************************************************************
'
'' Auxiliary audio support
'
'****************************************************************************/
' Auxiliary audio device capabilities structure
Type AUXCAPS
wMid As Integer ' manufacturer ID
wPid As Integer ' product ID
vDriverVersion As Integer ' version of the driver
szPname As String *32 ' product name (NULL terminated string)
wTechnology As Integer ' type of device
dwSupport As Long ' functionality supported by driver
End Type
' auxiliary audio function prototypes
Declare Function auxGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function auxGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpCaps As AUXCAPS, ByVal uSize%)
Declare Function auxSetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal dwVolume&)
Declare Function auxGetVolume% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwVolume&)
Declare Function auxOutMessage& Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal uMessage%, ByVal dw1&, ByVal dw2&)
'****************************************************************************
'
'' Timer support
'
'****************************************************************************/
' timer device capabilities data structure
Type TIMECAPS
wPeriodMin As Integer ' minimum period supported
wPeriodMax As Integer ' maximum period supported
End Type
' timer function prototypes
Declare Function timeGetSystemTime% Lib "MMSYSTEM.DLL" (lpTime As MMTIME, ByVal uSize%)
Declare Function timeGetTime& Lib "MMSYSTEM.DLL" ()
Declare Function timeSetEvent% Lib "MMSYSTEM.DLL" (ByVal uDelay%, ByVal uResolution%, ByVal lpFunction&, ByVal dwUser&, ByVal uFlags%)
Declare Function timeKillEvent% Lib "MMSYSTEM.DLL" (ByVal uTimerID%)
Declare Function timeGetDevCaps% Lib "MMSYSTEM.DLL" (lpTimeCaps As TIMECAPS, ByVal uSize%)
Declare Function timeBeginPeriod% Lib "MMSYSTEM.DLL" (ByVal uPeriod%)
Declare Function timeEndPeriod% Lib "MMSYSTEM.DLL" (ByVal uPeriod%)
'****************************************************************************
'
'' Joystick support
'
'****************************************************************************/
' joystick device capabilities data structure
Type JOYCAPS
wMid As Integer ' manufacturer ID
wPid As Integer ' product ID
szPname As String *32 ' product name (NULL terminated string)
wXmin As Integer ' minimum x position value
wXmax As Integer ' maximum x position value
wYmin As Integer ' minimum y position value
wYmax As Integer ' maximum y position value
wZmin As Integer ' minimum z position value
wZmax As Integer ' maximum z position value
wNumButtons As Integer ' number of buttons
wPeriodMin As Integer ' minimum message period when captured
wPeriodMax As Integer ' maximum message period when captured
End Type
' joystick information data structure
Type JOYINFO
wXpos As Integer ' x position
wYpos As Integer ' y position
wZpos As Integer ' z position
wButtons As Integer ' button states
End Type
' joystick function prototypes
Declare Function joyGetDevCaps% Lib "MMSYSTEM.DLL" (ByVal uJoyID%, lpCaps As JOYCAPS, ByVal uSize%)
Declare Function joyGetNumDevs% Lib "MMSYSTEM.DLL" ()
Declare Function joyGetPos% Lib "MMSYSTEM.DLL" (ByVal uJoyID%, lpInfo As JOYINFO)
Declare Function joyGetThreshold% Lib "MMSYSTEM.DLL" (ByVal uJoyID%, lpuThreshold%)
Declare Function joyReleaseCapture% Lib "MMSYSTEM.DLL" (ByVal uJoyID%)
Declare Function joySetCapture% Lib "MMSYSTEM.DLL" (ByVal hwnd%, ByVal uJoyID%, ByVal uPeriod%, ByVal bChanged%)
Declare Function joySetThreshold% Lib "MMSYSTEM.DLL" (ByVal uJoyID%, ByVal uThreshold%)
'****************************************************************************
'
'' Multimedia File I/O support
'
'****************************************************************************/
' general MMIO information data structure
Type MMIOINFO
' general fields
dwFlags As Long ' general status flags
fccIOProc As Long ' pointer to I/O procedure
pIOProc As Long ' pointer to I/O procedure
wErrorRet As Integer ' place for error to be returned
htask As Integer ' alternate local task
' fields maintained by MMIO functions during buffered I/O
cchBuffer As Long ' size of I/O buffer (or 0L)
pchBuffer As Long ' start of I/O buffer (or NULL)
pchNext As Long ' pointer to next byte to read/write
pchEndRead As Long ' pointer to last valid byte to read
pchEndWrite As Long ' pointer to last byte to write
lBufOffset As Long ' disk offset of start of buffer
' fields maintained by I/O procedure
lDiskOffset As Long ' disk offset of next read or write
adwInfo(3) As Long ' data specific to type of MMIOPROC
' other fields maintained by MMIO
dwReserved1 As Long ' reserved for MMIO use
dwReserved2 As Long ' reserved for MMIO use
hmmio As Integer ' handle to open file
End Type
' RIFF chunk information data structure
Type MMCKINFO
ckid As Long ' chunk ID
cksize As Long ' chunk size
fccType As Long ' form type or list type
dwDataOffset As Long ' offset of data portion of chunk
dwFlags As Long ' flags used by MMIO functions
End Type
' MMIO function prototypes
Declare Function mmioStringToFOURCC& Lib "MMSYSTEM.DLL" (ByVal sz$, ByVal uFlags%)
Declare Function mmioInstallIOProc& Lib "MMSYSTEM.DLL" (ByVal fccIOProc&, ByVal pIOProc&, ByVal dwFlags&)
Declare Function mmioOpen% Lib "MMSYSTEM.DLL" (ByVal szFileName$, lpmmioinfo As MMIOINFO, ByVal dwOpenFlags&)
Declare Function mmioRename% Lib "MMSYSTEM.DLL" (ByVal szFileName$, ByVal szNewFileName$, lpmmioinfo As MMIOINFO, ByVal dwRenameFlags&)
Declare Function mmioClose% Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal uFlags%)
Declare Function mmioRead& Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal pch$, ByVal cch&)
Declare Function mmioWrite& Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal pch$, ByVal cch&)
Declare Function mmioSeek& Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal lOffset&, ByVal iOrigin%)
Declare Function mmioGetInfo% Lib "MMSYSTEM.DLL" (ByVal hmmio%, lpmmioinfo As MMIOINFO, ByVal uFlags%)
Declare Function mmioSetInfo% Lib "MMSYSTEM.DLL" (ByVal hmmio%, lpmmioinfo As MMIOINFO, ByVal uFlags%)
Declare Function mmioSetBuffer% Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal pchBuffer$, ByVal cchBuffer&, ByVal uFlags%)
Declare Function mmioFlush% Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal uFlags%)
Declare Function mmioAdvance% Lib "MMSYSTEM.DLL" (ByVal hmmio%, lpmmioinfo As MMIOINFO, ByVal uFlags%)
Declare Function mmioSendMessage& Lib "MMSYSTEM.DLL" (ByVal hmmio%, ByVal uMessage%, ByVal lParam1&, ByVal lParam2&)
Declare Function mmioDescend% Lib "MMSYSTEM.DLL" (ByVal hmmio%, lpck As MMCKINFO, lpckParent As MMCKINFO, ByVal uFlags%)
Declare Function mmioAscend% Lib "MMSYSTEM.DLL" (ByVal hmmio%, lpck As MMCKINFO, ByVal uFlags%)
Declare Function mmioCreateChunk% Lib "MMSYSTEM.DLL" (ByVal hmmio%, lpck As MMCKINFO, ByVal uFlags%)
'****************************************************************************
'
'' MCI support
'
'****************************************************************************/
' MCI function prototypes
Declare Function mciSendCommand& Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal uMessage%, ByVal dwParam1&, ByVal dwParam2&)
Declare Function mciSendString& Lib "MMSYSTEM.DLL" (ByVal lpstrCommand$, ByVal lpstrReturnString$, ByVal uReturnLength%, ByVal hwndCallback%)
Declare Function mciSendStringAny& Lib "MMSYSTEM.DLL" Alias "mciSendString" (ByVal lpstrCommand$, ByVal lpstrReturnString As Any, ByVal uReturnLength%, ByVal hwndCallback%)
Declare Function mciGetDeviceID% Lib "MMSYSTEM.DLL" (ByVal lpstrName$)
Declare Function mciGetDeviceIDFromElementID% Lib "MMSYSTEM.DLL" (ByVal dwElementID&, ByVal lpstrType$)
Declare Function mciGetErrorString% Lib "MMSYSTEM.DLL" (ByVal wError&, ByVal lpstrBuffer$, ByVal uLength%)
Declare Function mciSetYieldProc% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, ByVal fpYieldProc&, ByVal dwYieldData&)
Declare Function mciGetCreatorTask% Lib "MMSYSTEM.DLL" (ByVal uDeviceID%)
Declare Function mciGetYieldProc& Lib "MMSYSTEM.DLL" (ByVal uDeviceID%, lpdwYieldData&)
Declare Function mciExecute% Lib "MMSYSTEM.DLL" (ByVal lpstrCommand$)
' generic parameter block for MCI command messages with no special parameters
Type MCI_GENERIC_PARMS
dwCallback As Long
End Type
' parameter block for MCI_OPEN command message
Type MCI_OPEN_PARMS
dwCallback As Long
wDeviceID As Integer
wReserved0 As Integer
ByVal As Long
lpstrElementName As Long
lpstrAlias As Long
End Type
' parameter block for MCI_PLAY command message
Type MCI_PLAY_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
End Type
' parameter block for MCI_SEEK command message
Type MCI_SEEK_PARMS
dwCallback As Long
dwTo As Long
End Type
' parameter block for MCI_STATUS command message
Type MCI_STATUS_PARMS
dwCallback As Long
dwReturn As Long
dwItem As Long
dwTrack As Long
End Type
' parameter block for MCI_INFO command message
Type MCI_INFO_PARMS
dwCallback As Long
lpstrReturn As Long
dwRetSize As Long
End Type
' parameter block for MCI_GETDEVCAPS command message
Type MCI_GETDEVCAPS_PARMS
dwCallback As Long
dwReturn As Long
dwItem As Long
End Type
' parameter block for MCI_SYSINFO command message
Type MCI_SYSINFO_PARMS
dwCallback As Long
lpstrReturn As Long
dwRetSize As Long
dwNumber As Long
wDeviceType As Integer
wReserved0 As Integer
End Type
' parameter block for MCI_SET command message
Type MCI_SET_PARMS
dwCallback As Long
dwTimeFormat As Long
dwAudio As Long
End Type
' parameter block for MCI_BREAK command message
Type MCI_BREAK_PARMS
dwCallback As Long
nVirtKey As Integer
wReserved0 As Integer
hwndBreak As Integer
wReserved1 As Integer
End Type
' parameter block for MCI_SOUND command message
Type MCI_SOUND_PARMS
dwCallback As Long
lpstrSoundName As Long
End Type
' parameter block for MCI_SAVE command message
Type MCI_SAVE_PARMS
dwCallback As Long
lpfilename As Long
End Type
' parameter block for MCI_LOAD command message
Type MCI_LOAD_PARMS
dwCallback As Long
lpfilename As Long
End Type
' parameter block for MCI_RECORD command message
Type MCI_RECORD_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
End Type
' parameter block for MCI_PLAY command message
Type MCI_VD_PLAY_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
dwSpeed As Long
End Type
' parameter block for MCI_STEP command message
Type MCI_VD_STEP_PARMS
dwCallback As Long
dwFrames As Long
End Type
' parameter block for MCI_ESCAPE command message
Type MCI_VD_ESCAPE_PARMS
dwCallback As Long
lpstrCommand As Long
End Type
' parameter block for MCI_OPEN command message
Type MCI_WAVE_OPEN_PARMS
dwCallback As Long
wDeviceID As Integer
wReserved0 As Integer
lpstrDeviceType As Long
lpstrElementName As Long
lpstrAlias As Long
dwBufferSeconds As Long
End Type
' parameter block for MCI_DELETE command message
Type MCI_WAVE_DELETE_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
End Type
' parameter block for MCI_SET command message
Type MCI_WAVE_SET_PARMS
dwCallback As Long
dwTimeFormat As Long
dwAudio As Long
wInput As Integer
wReserved0 As Integer
wOutput As Integer
wReserved1 As Integer
wFormatTag As Integer
wReserved2 As Integer
nChannels As Integer
wReserved3 As Integer
nSamplesPerSec As Long
nAvgBytesPerSec As Long
nBlockAlign As Integer
wReserved4 As Integer
wBitsPerSample As Integer
wReserved5 As Integer
End Type
' parameter block for MCI_SET command message
Type MCI_SEQ_SET_PARMS
dwCallback As Long
dwTimeFormat As Long
dwAudio As Long
dwTempo As Long
dwPort As Long
dwSlave As Long
dwMaster As Long
dwOffset As Long
End Type
' parameter block for MCI_OPEN command message
Type MCI_ANIM_OPEN_PARMS
dwCallback As Long
wDeviceID As Integer
wReserved0 As Integer
lpstrDeviceType As Long
lpstrElementName As Long
lpstrAlias As Long
dwStyle As Long
hWndParent As Integer
wReserved1 As Integer
End Type
' parameter block for MCI_PLAY command message
Type MCI_ANIM_PLAY_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
dwSpeed As Long
End Type
' parameter block for MCI_STEP command message
Type MCI_ANIM_STEP_PARMS
dwCallback As Long
dwFrames As Long
End Type
' parameter block for MCI_WINDOW command message
Type MCI_ANIM_WINDOW_PARMS
dwCallback As Long
hWnd As Integer
wReserved1 As Integer
nCmdShow As Integer
wReserved2 As Integer
lpstrText As Long
End Type
' parameter block for MCI_PUT, MCI_UPDATE, MCI_WHERE command messages
Type MCI_ANIM_RECT_PARMS
dwCallback As Long
rc As RECT
End Type
' parameter block for MCI_UPDATE PARMS
Type MCI_ANIM_UPDATE_PARMS
dwCallback As Long
rc As RECT
hDC As Integer
End Type
' parameter block for MCI_OPEN command message
Type MCI_OVLY_OPEN_PARMS
dwCallback As Long
wDeviceID As Integer
wReserved0 As Integer
lpstrDeviceType As Long
lpstrElementName As Long
lpstrAlias As Long
dwStyle As Long
hWndParent As Integer
wReserved1 As Integer
End Type
' parameter block for MCI_WINDOW command message
Type MCI_OVLY_WINDOW_PARMS
dwCallback As Long
hWnd As Integer
wReserved1 As Integer
nCmdShow As Integer
wReserved2 As Integer
lpstrText As Long
End Type
' parameter block for MCI_PUT, MCI_UPDATE, and MCI_WHERE command messages
Type MCI_OVLY_RECT_PARMS
dwCallback As Long
rc As RECT
End Type
' parameter block for MCI_SAVE command message
Type MCI_OVLY_SAVE_PARMS
dwCallback As Long
lpfilename As Long
rc As RECT
End Type
' parameter block for MCI_LOAD command message
Type MCI_OVLY_LOAD_PARMS
dwCallback As Long
lpfilename As Long
rc As RECT
End Type