HELP ME before I KILL myself, please!?!?!

[A$$Bandit]

How can I get the MCI DeviceID of a CD-ROM drive??? I've been tearing my hair out over this for ages!!!

[DJ_Playing]

Private Sub Form_Load()

'device types as AVIVideo, CDAudio, DAT, DigitalVideo, MMMovie, Other, Overlay, Scanner, Sequencer, VCR, Videodisc, or WaveAudio.
With MMControl1
.Notify = False
.Wait = True
.Shareable = False
.DeviceType = "CDAudio"

' Open the MCI WaveAudio device.
.Command = "Open"

End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
End Sub

[DJ_Playing]

now change your name & chilllllll

[A$$Bandit]

OK here's the reason I've been trying to figure this out for a week: I need to do it without using the Microsoft Multimedia Control from the components list. There must be an API way... thanks anyway!

[DJ_Playing]

here are a few API Declatations that might help. The Code should look about the same since the MM Control calls these same APIs... Have fun


Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long

Private Declare Function mciGetCreatorTask Lib "winmm.dll" Alias "mciGetCreatorTask" (ByVal wDeviceID As Long) As Long

Private Declare Function mciGetDeviceID Lib "winmm.dll" Alias "mciGetDeviceIDA" (ByVal lpstrName As String) As Long

Private Declare Function mciGetDeviceIDFromElementID Lib "winmm.dll" Alias "mciGetDeviceIDFromElementIDA" (ByVal dwElementID As Long, ByVal lpstrType As String) As Long

Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Private Declare Function mciGetYieldProc Lib "winmm" Alias "mciGetYieldProc" (ByVal mciId As Long, pdwYieldData As Long) As Long

Private Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Any) As Long

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function mciSetYieldProc Lib "winmm" Alias "mciSetYieldProc" (ByVal mciId As Long, ByVal fpYieldProc As Long, ByVal dwYieldData As Long) As Long

[DJ_Playing]

Private Const MCI_ALL_DEVICE_ID = - 1 ' Matches all MCI devices
Private Const MCI_ANIM_GETDEVCAPS_CAN_REVERSE = &H4001&
Private Const MCI_ANIM_GETDEVCAPS_CAN_STRETCH = &H4007&
Private Const MCI_ANIM_GETDEVCAPS_FAST_RATE = &H4002&
Private Const MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = &H4008&
Private Const MCI_ANIM_GETDEVCAPS_NORMAL_RATE = &H4004&
Private Const MCI_ANIM_GETDEVCAPS_PALETTES = &H4006&
Private Const MCI_ANIM_GETDEVCAPS_SLOW_RATE = &H4003&
Private Const MCI_ANIM_INFO_TEXT = &H10000
Private Const MCI_ANIM_OPEN_NOSTATIC = &H40000
Private Const MCI_ANIM_OPEN_PARENT = &H20000
Private Const MCI_ANIM_OPEN_WS = &H10000
Private Const MCI_ANIM_PLAY_FAST = &H40000
Private Const MCI_ANIM_PLAY_REVERSE = &H20000
Private Const MCI_ANIM_PLAY_SCAN = &H100000
Private Const MCI_ANIM_PLAY_SLOW = &H80000
Private Const MCI_ANIM_PLAY_SPEED = &H10000
Private Const MCI_ANIM_PUT_DESTINATION = &H40000 ' also MCI_WHERE
Private Const MCI_ANIM_PUT_SOURCE = &H20000 ' also MCI_WHERE
Private Const MCI_ANIM_REALIZE_BKGD = &H20000
Private Const MCI_ANIM_REALIZE_NORM = &H10000
Private Const MCI_ANIM_RECT = &H10000
Private Const MCI_ANIM_STATUS_FORWARD = &H4002&
Private Const MCI_ANIM_STATUS_HPAL = &H4004&
Private Const MCI_ANIM_STATUS_HWND = &H4003&
Private Const MCI_ANIM_STATUS_SPEED = &H4001&
Private Const MCI_ANIM_STATUS_STRETCH = &H4005&
Private Const MCI_ANIM_STEP_FRAMES = &H20000
Private Const MCI_ANIM_STEP_REVERSE = &H10000
Private Const MCI_ANIM_UPDATE_HDC = &H20000
Private Const MCI_ANIM_WHERE_DESTINATION = &H40000
Private Const MCI_ANIM_WHERE_SOURCE = &H20000
Private Const MCI_ANIM_WINDOW_DEFAULT = &H0&
Private Const MCI_ANIM_WINDOW_DISABLE_STRETCH = &H200000
Private Const MCI_ANIM_WINDOW_ENABLE_STRETCH = &H100000
Private Const MCI_ANIM_WINDOW_HWND = &H10000
Private Const MCI_ANIM_WINDOW_STATE = &H40000
Private Const MCI_ANIM_WINDOW_TEXT = &H80000
Private Const MCI_BREAK = &H811
Private Const MCI_BREAK_HWND = &H200&
Private Const MCI_BREAK_KEY = &H100&
Private Const MCI_BREAK_OFF = &H400&
Private Const MCI_CD_OFFSET = 1088
Private Const MCI_CLOSE = &H804
Private Const MCI_COPY = &H852
Private Const MCI_CUE = &H830
Private Const MCI_CUT = &H851
Private Const MCI_DELETE = &H856
Private Const MCI_DEVTYPE_ANIMATION = 519
Private Const MCI_DEVTYPE_CD_AUDIO = 516
Private Const MCI_DEVTYPE_DAT = 517
Private Const MCI_DEVTYPE_DIGITAL_VIDEO = 520
Private Const MCI_DEVTYPE_FIRST = MCI_DEVTYPE_VCR
Private Const MCI_DEVTYPE_FIRST_USER = &H1000
Private Const MCI_DEVTYPE_LAST = MCI_DEVTYPE_SEQUENCER
Private Const MCI_DEVTYPE_OTHER = 521
Private Const MCI_DEVTYPE_OVERLAY = 515
Private Const MCI_DEVTYPE_SCANNER = 518
Private Const MCI_DEVTYPE_SEQUENCER = 523
Private Const MCI_DEVTYPE_VCR = 513
Private Const MCI_DEVTYPE_VIDEODISC = 514
Private Const MCI_DEVTYPE_WAVEFORM_AUDIO = 522
Private Const MCI_ESCAPE = &H805
Private Const MCI_FIRST = &H800
Private Const MCI_FORMAT_BYTES = 8
Private Const MCI_FORMAT_FRAMES = 3
Private Const MCI_FORMAT_HMS = 1
Private Const MCI_FORMAT_MILLISECONDS = 0
Private Const MCI_FORMAT_MSF = 2
Private Const MCI_FORMAT_SAMPLES = 9
Private Const MCI_FORMAT_SMPTE_24 = 4
Private Const MCI_FORMAT_SMPTE_25 = 5
Private Const MCI_FORMAT_SMPTE_30 = 6
Private Const MCI_FORMAT_SMPTE_30DROP = 7
Private Const MCI_FORMAT_TMSF = 10
Private Const MCI_FREEZE = &H844
Private Const MCI_FROM = &H4&
Private Const MCI_GETDEVCAPS = &H80B
Private Const MCI_GETDEVCAPS_CAN_EJECT = &H7&
Private Const MCI_GETDEVCAPS_CAN_PLAY = &H8&
Private Const MCI_GETDEVCAPS_CAN_RECORD = &H1&
Private Const MCI_GETDEVCAPS_CAN_SAVE = &H9&
Private Const MCI_GETDEVCAPS_COMPOUND_DEVICE = &H6&
Private Const MCI_GETDEVCAPS_DEVICE_TYPE = &H4&
Private Const MCI_GETDEVCAPS_HAS_AUDIO = &H2&
Private Const MCI_GETDEVCAPS_HAS_VIDEO = &H3&
Private Const MCI_GETDEVCAPS_ITEM = &H100&
Private Const MCI_GETDEVCAPS_USES_FILES = &H5&
Private Const MCI_INFO = &H80A
Private Const MCI_INFO_FILE = &H200&
Private Const MCI_INFO_PRODUCT = &H100&
Private Const MCI_LAST = &HFFF
Private Const MCI_LOAD = &H850
Private Const MCI_LOAD_FILE = &H100&
Private Const MCI_MODE_NOT_READY = (MCI_STRING_OFFSET + 12)
Private Const MCI_MODE_OPEN = (MCI_STRING_OFFSET + 18)
Private Const MCI_MODE_PAUSE = (MCI_STRING_OFFSET + 17)
Private Const MCI_MODE_PLAY = (MCI_STRING_OFFSET + 14)
Private Const MCI_MODE_RECORD = (MCI_STRING_OFFSET + 15)
Private Const MCI_MODE_SEEK = (MCI_STRING_OFFSET + 16)
Private Const MCI_MODE_STOP = (MCI_STRING_OFFSET + 13)
Private Const MCI_NOTIFY = &H1&
Private Const MCI_NOTIFY_ABORTED = &H4
Private Const MCI_NOTIFY_FAILURE = &H8
Private Const MCI_NOTIFY_SUCCESSFUL = &H1
Private Const MCI_NOTIFY_SUPERSEDED = &H2
Private Const MCI_OPEN = &H803
Private Const MCI_OPEN_ALIAS = &H400&
Private Const MCI_OPEN_ELEMENT = &H200&
Private Const MCI_OPEN_ELEMENT_ID = &H800&
Private Const MCI_OPEN_SHAREABLE = &H100&
Private Const MCI_OPEN_TYPE = &H2000&
Private Const MCI_OPEN_TYPE_ID = &H1000&
Private Const MCI_OVLY_GETDEVCAPS_CAN_FREEZE = &H4002&
Private Const MCI_OVLY_GETDEVCAPS_CAN_STRETCH = &H4001&
Private Const MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = &H4003&
Private Const MCI_OVLY_INFO_TEXT = &H10000
Private Const MCI_OVLY_OPEN_PARENT = &H20000
Private Const MCI_OVLY_OPEN_WS = &H10000
Private Const MCI_OVLY_PUT_DESTINATION = &H40000
Private Const MCI_OVLY_PUT_FRAME = &H80000
Private Const MCI_OVLY_PUT_SOURCE = &H20000
Private Const MCI_OVLY_PUT_VIDEO = &H100000
Private Const MCI_OVLY_RECT = &H10000
Private Const MCI_OVLY_STATUS_HWND = &H4001&
Private Const MCI_OVLY_STATUS_STRETCH = &H4002&
Private Const MCI_OVLY_WHERE_DESTINATION = &H40000
Private Const MCI_OVLY_WHERE_FRAME = &H80000
Private Const MCI_OVLY_WHERE_SOURCE = &H20000
Private Const MCI_OVLY_WHERE_VIDEO = &H100000
Private Const MCI_OVLY_WINDOW_DEFAULT = &H0&
Private Const MCI_OVLY_WINDOW_DISABLE_STRETCH = &H200000
Private Const MCI_OVLY_WINDOW_ENABLE_STRETCH = &H100000
Private Const MCI_OVLY_WINDOW_HWND = &H10000
Private Const MCI_OVLY_WINDOW_STATE = &H40000
Private Const MCI_OVLY_WINDOW_TEXT = &H80000
Private Const MCI_PASTE = &H853
Private Const MCI_PAUSE = &H809
Private Const MCI_PLAY = &H806
Private Const MCI_PUT = &H842
Private Const MCI_REALIZE = &H840
Private Const MCI_RECORD = &H80F
Private Const MCI_RECORD_INSERT = &H100&
Private Const MCI_RECORD_OVERWRITE = &H200&
Private Const MCI_RESUME = &H855
Private Const MCI_SAVE = &H813
Private Const MCI_SAVE_FILE = &H100&
Private Const MCI_SEEK = &H807
Private Const MCI_SEEK_TO_END = &H200&
Private Const MCI_SEEK_TO_START = &H100&
Private Const MCI_SEQ_DIV_PPQN = (0 + MCI_SEQ_OFFSET)
Private Const MCI_SEQ_DIV_SMPTE_24 = (1 + MCI_SEQ_OFFSET)
Private Const MCI_SEQ_DIV_SMPTE_25 = (2 + MCI_SEQ_OFFSET)
Private Const MCI_SEQ_DIV_SMPTE_30 = (4 + MCI_SEQ_OFFSET)
Private Const MCI_SEQ_DIV_SMPTE_30DROP = (3 + MCI_SEQ_OFFSET)
Private Const MCI_SEQ_FILE = &H4002
Private Const MCI_SEQ_FORMAT_SONGPTR = &H4001
Private Const MCI_SEQ_MAPPER = 65535
Private Const MCI_SEQ_MIDI = &H4003
Private Const MCI_SEQ_NONE = 65533
Private Const MCI_SEQ_OFFSET = 1216
Private Const MCI_SEQ_SET_MASTER = &H80000
Private Const MCI_SEQ_SET_OFFSET = &H1000000
Private Const MCI_SEQ_SET_PORT = &H20000
Private Const MCI_SEQ_SET_SLAVE = &H40000
Private Const MCI_SEQ_SET_TEMPO = &H10000
Private Const MCI_SEQ_SMPTE = &H4004
Private Const MCI_SEQ_STATUS_DIVTYPE = &H400A&
Private Const MCI_SEQ_STATUS_MASTER = &H4008&
Private Const MCI_SEQ_STATUS_OFFSET = &H4009&
Private Const MCI_SEQ_STATUS_PORT = &H4003&
Private Const MCI_SEQ_STATUS_SLAVE = &H4007&
Private Const MCI_SEQ_STATUS_TEMPO = &H4002&
Private Const MCI_SET = &H80D
Private Const MCI_SET_AUDIO = &H800&
Private Const MCI_SET_AUDIO_ALL = &H4001&
Private Const MCI_SET_AUDIO_LEFT = &H4002&
Private Const MCI_SET_AUDIO_RIGHT = &H4003&
Private Const MCI_SET_DOOR_CLOSED = &H200&
Private Const MCI_SET_DOOR_OPEN = &H100&
Private Const MCI_SET_OFF = &H4000&
Private Const MCI_SET_ON = &H2000&
Private Const MCI_SET_TIME_FORMAT = &H400&
Private Const MCI_SET_VIDEO = &H1000&
Private Const MCI_SOUND = &H812
Private Const MCI_SOUND_NAME = &H100&
Private Const MCI_SPIN = &H80C
Private Const MCI_STATUS = &H814
Private Const MCI_STATUS_CURRENT_TRACK = &H8&
Private Const MCI_STATUS_ITEM = &H100&
Private Const MCI_STATUS_LENGTH = &H1&
Private Const MCI_STATUS_MEDIA_PRESENT = &H5&
Private Const MCI_STATUS_MODE = &H4&
Private Const MCI_STATUS_NUMBER_OF_TRACKS = &H3&
Private Const MCI_STATUS_POSITION = &H2&
Private Const MCI_STATUS_READY = &H7&
Private Const MCI_STATUS_START = &H200&
Private Const MCI_STATUS_TIME_FORMAT = &H6&
Private Const MCI_STEP = &H80E
Private Const MCI_STOP = &H808
Private Const MCI_STRING_OFFSET = 512 ' if this number is changed you MUST
Private Const MCI_SYSINFO = &H810
Private Const MCI_SYSINFO_INSTALLNAME = &H800&
Private Const MCI_SYSINFO_NAME = &H400&
Private Const MCI_SYSINFO_OPEN = &H200&
Private Const MCI_SYSINFO_QUANTITY = &H100&
Private Const MCI_TO = &H8&

[DJ_Playing]

Private Const MCI_TRACK = &H10&
Private Const MCI_UNFREEZE = &H845
Private Const MCI_UPDATE = &H854
Private Const MCI_USER_MESSAGES = (&H400 + MCI_FIRST)
Private Const MCI_VD_ESCAPE_STRING = &H100&
Private Const MCI_VD_FORMAT_TRACK = &H4001
Private Const MCI_VD_GETDEVCAPS_CAN_REVERSE = &H4002&
Private Const MCI_VD_GETDEVCAPS_CAV = &H20000
Private Const MCI_VD_GETDEVCAPS_CLV = &H10000
Private Const MCI_VD_GETDEVCAPS_FAST_RATE = &H4003&
Private Const MCI_VD_GETDEVCAPS_NORMAL_RATE = &H4005&
Private Const MCI_VD_GETDEVCAPS_SLOW_RATE = &H4004&
Private Const MCI_VD_MEDIA_CAV = (MCI_VD_OFFSET + 3)
Private Const MCI_VD_MEDIA_CLV = (MCI_VD_OFFSET + 2)
Private Const MCI_VD_MEDIA_OTHER = (MCI_VD_OFFSET + 4)
Private Const MCI_VD_MODE_PARK = (MCI_VD_OFFSET + 1)
Private Const MCI_VD_OFFSET = 1024
Private Const MCI_VD_PLAY_FAST = &H20000
Private Const MCI_VD_PLAY_REVERSE = &H10000
Private Const MCI_VD_PLAY_SCAN = &H80000
Private Const MCI_VD_PLAY_SLOW = &H100000
Private Const MCI_VD_PLAY_SPEED = &H40000
Private Const MCI_VD_SEEK_REVERSE = &H10000
Private Const MCI_VD_SPIN_DOWN = &H20000
Private Const MCI_VD_SPIN_UP = &H10000
Private Const MCI_VD_STATUS_DISC_SIZE = &H4006&
Private Const MCI_VD_STATUS_FORWARD = &H4003&
Private Const MCI_VD_STATUS_MEDIA_TYPE = &H4004&
Private Const MCI_VD_STATUS_SIDE = &H4005&
Private Const MCI_VD_STATUS_SPEED = &H4002&
Private Const MCI_VD_STEP_FRAMES = &H10000
Private Const MCI_VD_STEP_REVERSE = &H20000
Private Const MCI_WAIT = &H2&
Private Const MCI_WAVE_GETDEVCAPS_INPUTS = &H4001&
Private Const MCI_WAVE_GETDEVCAPS_OUTPUTS = &H4002&
Private Const MCI_WAVE_INPUT = &H400000
Private Const MCI_WAVE_MAPPER = (MCI_WAVE_OFFSET + 1)
Private Const MCI_WAVE_OFFSET = 1152
Private Const MCI_WAVE_OPEN_BUFFER = &H10000
Private Const MCI_WAVE_OUTPUT = &H800000
Private Const MCI_WAVE_PCM = (MCI_WAVE_OFFSET + 0)
Private Const MCI_WAVE_SET_ANYINPUT = &H4000000
Private Const MCI_WAVE_SET_ANYOUTPUT = &H8000000
Private Const MCI_WAVE_SET_AVGBYTESPERSEC = &H80000
Private Const MCI_WAVE_SET_BITSPERSAMPLE = &H200000
Private Const MCI_WAVE_SET_BLOCKALIGN = &H100000
Private Const MCI_WAVE_SET_CHANNELS = &H20000
Private Const MCI_WAVE_SET_FORMATTAG = &H10000
Private Const MCI_WAVE_SET_SAMPLESPERSEC = &H40000
Private Const MCI_WAVE_STATUS_AVGBYTESPERSEC = &H4004&
Private Const MCI_WAVE_STATUS_BITSPERSAMPLE = &H4006&
Private Const MCI_WAVE_STATUS_BLOCKALIGN = &H4005&
Private Const MCI_WAVE_STATUS_CHANNELS = &H4002&
Private Const MCI_WAVE_STATUS_FORMATTAG = &H4001&
Private Const MCI_WAVE_STATUS_LEVEL = &H4007&
Private Const MCI_WAVE_STATUS_SAMPLESPERSEC = &H4003&
Private Const MCI_WHERE = &H843
Private Const MCI_WINDOW = &H841
Private Const MCIERR_BAD_CONSTANT = (MCIERR_BASE + 34)
Private Const MCIERR_BAD_INTEGER = (MCIERR_BASE + 14)
Private Const MCIERR_BAD_TIME_FORMAT = (MCIERR_BASE + 37)
Private Const MCIERR_BASE = 256
Private Const MCIERR_CANNOT_LOAD_DRIVER = (MCIERR_BASE + 10)
Private Const MCIERR_CANNOT_USE_ALL = (MCIERR_BASE + 23)
Private Const MCIERR_CREATEWINDOW = (MCIERR_BASE + 91)
Private Const MCIERR_CUSTOM_DRIVER_BASE = (MCIERR_BASE + 256)
Private Const MCIERR_DEVICE_LENGTH = (MCIERR_BASE + 54)
Private Const MCIERR_DEVICE_LOCKED = (MCIERR_BASE + 32)
Private Const MCIERR_DEVICE_NOT_INSTALLED = (MCIERR_BASE + 50)
Private Const MCIERR_DEVICE_NOT_READY = (MCIERR_BASE + 20)
Private Const MCIERR_DEVICE_OPEN = (MCIERR_BASE + 9)
Private Const MCIERR_DEVICE_ORD_LENGTH = (MCIERR_BASE + 55)
Private Const MCIERR_DEVICE_TYPE_REQUIRED = (MCIERR_BASE + 31)
Private Const MCIERR_DRIVER = (MCIERR_BASE + 22)
Private Const MCIERR_DRIVER_INTERNAL = (MCIERR_BASE + 16)
Private Const MCIERR_DUPLICATE_ALIAS = (MCIERR_BASE + 33)
Private Const MCIERR_DUPLICATE_FLAGS = (MCIERR_BASE + 39)
Private Const MCIERR_EXTENSION_NOT_FOUND = (MCIERR_BASE + 25)
Private Const MCIERR_EXTRA_CHARACTERS = (MCIERR_BASE + 49)
Private Const MCIERR_FILE_NOT_FOUND = (MCIERR_BASE + 19)
Private Const MCIERR_FILE_NOT_SAVED = (MCIERR_BASE + 30)
Private Const MCIERR_FILE_READ = (MCIERR_BASE + 92)
Private Const MCIERR_FILE_WRITE = (MCIERR_BASE + 93)
Private Const MCIERR_FILENAME_REQUIRED = (MCIERR_BASE + 48)
Private Const MCIERR_FLAGS_NOT_COMPATIBLE = (MCIERR_BASE + 28)
Private Const MCIERR_GET_CD = (MCIERR_BASE + 51)
Private Const MCIERR_HARDWARE = (MCIERR_BASE + 6)
Private Const MCIERR_ILLEGAL_FOR_AUTO_OPEN = (MCIERR_BASE + 47)
Private Const MCIERR_INTERNAL = (MCIERR_BASE + 21)
Private Const MCIERR_INVALID_DEVICE_ID = (MCIERR_BASE + 1)
Private Const MCIERR_INVALID_DEVICE_NAME = (MCIERR_BASE + 7)
Private Const MCIERR_INVALID_FILE = (MCIERR_BASE + 40)
Private Const MCIERR_MISSING_COMMAND_STRING = (MCIERR_BASE + 11)
Private Const MCIERR_MISSING_DEVICE_NAME = (MCIERR_BASE + 36)
Private Const MCIERR_MISSING_PARAMETER = (MCIERR_BASE + 17)
Private Const MCIERR_MISSING_STRING_ARGUMENT = (MCIERR_BASE + 13)
Private Const MCIERR_MULTIPLE = (MCIERR_BASE + 24)
Private Const MCIERR_MUST_USE_SHAREABLE = (MCIERR_BASE + 35)
Private Const MCIERR_NEW_REQUIRES_ALIAS = (MCIERR_BASE + 43)
Private Const MCIERR_NO_CLOSING_QUOTE = (MCIERR_BASE + 38)
Private Const MCIERR_NO_ELEMENT_ALLOWED = (MCIERR_BASE + 45)
Private Const MCIERR_NO_INTEGER = (MCIERR_BASE + 56)
Private Const MCIERR_NO_WINDOW = (MCIERR_BASE + 90)
Private Const MCIERR_NONAPPLICABLE_FUNCTION = (MCIERR_BASE + 46)
Private Const MCIERR_NOTIFY_ON_AUTO_OPEN = (MCIERR_BASE + 44)
Private Const MCIERR_NULL_PARAMETER_BLOCK = (MCIERR_BASE + 41)
Private Const MCIERR_OUT_OF_MEMORY = (MCIERR_BASE + 8)
Private Const MCIERR_OUTOFRANGE = (MCIERR_BASE + 26)
Private Const MCIERR_PARAM_OVERFLOW = (MCIERR_BASE + 12)
Private Const MCIERR_PARSER_INTERNAL = (MCIERR_BASE + 15)
Private Const MCIERR_SEQ_DIV_INCOMPATIBLE = (MCIERR_BASE + 80)
Private Const MCIERR_SEQ_NOMIDIPRESENT = (MCIERR_BASE + 87)
Private Const MCIERR_SEQ_PORT_INUSE = (MCIERR_BASE + 81)
Private Const MCIERR_SEQ_PORT_MAPNODEVICE = (MCIERR_BASE + 83)
Private Const MCIERR_SEQ_PORT_MISCERROR = (MCIERR_BASE + 84)
Private Const MCIERR_SEQ_PORT_NONEXISTENT = (MCIERR_BASE + 82)
Private Const MCIERR_SEQ_PORTUNSPECIFIED = (MCIERR_BASE + 86)
Private Const MCIERR_SEQ_TIMER = (MCIERR_BASE + 85)
Private Const MCIERR_SET_CD = (MCIERR_BASE + 52)
Private Const MCIERR_SET_DRIVE = (MCIERR_BASE + 53)
Private Const MCIERR_UNNAMED_RESOURCE = (MCIERR_BASE + 42)
Private Const MCIERR_UNRECOGNIZED_COMMAND = (MCIERR_BASE + 5)
Private Const MCIERR_UNRECOGNIZED_KEYWORD = (MCIERR_BASE + 3)
Private Const MCIERR_UNSUPPORTED_FUNCTION = (MCIERR_BASE + 18)
Private Const MCIERR_WAVE_INPUTSINUSE = (MCIERR_BASE + 66)
Private Const MCIERR_WAVE_INPUTSUNSUITABLE = (MCIERR_BASE + 72)
Private Const MCIERR_WAVE_INPUTUNSPECIFIED = (MCIERR_BASE + 69)
Private Const MCIERR_WAVE_OUTPUTSINUSE = (MCIERR_BASE + 64)
Private Const MCIERR_WAVE_OUTPUTSUNSUITABLE = (MCIERR_BASE + 70)
Private Const MCIERR_WAVE_OUTPUTUNSPECIFIED = (MCIERR_BASE + 68)
Private Const MCIERR_WAVE_SETINPUTINUSE = (MCIERR_BASE + 67)
Private Const MCIERR_WAVE_SETINPUTUNSUITABLE = (MCIERR_BASE + 73)
Private Const MCIERR_WAVE_SETOUTPUTINUSE = (MCIERR_BASE + 65)
Private Const MCIERR_WAVE_SETOUTPUTUNSUITABLE = (MCIERR_BASE + 71)

[DJ_Playing]

Private Type MCI_ANIM_OPEN_PARMS
dwCallback As Long
wDeviceID As Long
lpstrDeviceType As String
lpstrElementName As String
lpstrAlias As String
dwStyle As Long
hWndParent As Long
End Type
Private Type MCI_ANIM_PLAY_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
dwSpeed As Long
End Type
Private Type MCI_ANIM_RECT_PARMS
dwCallback As Long
rc As Rect
End Type
Private Type MCI_ANIM_STEP_PARMS
dwCallback As Long
dwFrames As Long
End Type
Private Type MCI_ANIM_UPDATE_PARMS
dwCallback As Long
rc As Rect
hdc As Long
End Type
Private Type MCI_ANIM_WINDOW_PARMS
dwCallback As Long
hwnd As Long
nCmdShow As Long
lpstrText As String
End Type
Private Type MCI_BREAK_PARMS
dwCallback As Long
nVirtKey As Long
hwndBreak As Long
End Type
Private Type MCI_GENERIC_PARMS
dwCallback As Long
End Type
Private Type MCI_GETDEVCAPS_PARMS
dwCallback As Long
dwReturn As Long
dwIten As Long
End Type
Private Type MCI_INFO_PARMS
dwCallback As Long
lpstrReturn As String
dwRetSize As Long
End Type
Private Type MCI_LOAD_PARMS
dwCallback As Long
lpFileName As String
End Type
Private Type MCI_OPEN_PARMS
dwCallback As Long
wDeviceID As Long
lpstrDeviceType As String
lpstrElementName As String
lpstrAlias As String
End Type
Private Type MCI_OVLY_LOAD_PARMS
dwCallback As Long
lpFileName As String
rc As Rect
End Type
Private Type MCI_OVLY_OPEN_PARMS
dwCallback As Long
wDeviceID As Long
lpstrDeviceType As String
lpstrElementName As String
lpstrAlias As String
dwStyle As Long
hWndParent As Long
End Type
Private Type MCI_OVLY_RECT_PARMS
dwCallback As Long
rc As Rect
End Type
Private Type MCI_OVLY_SAVE_PARMS
dwCallback As Long
lpFileName As String
rc As Rect
End Type
Private Type MCI_OVLY_WINDOW_PARMS
dwCallback As Long
hwnd As Long
nCmdShow As Long
lpstrText As String
End Type
Private Type MCI_PLAY_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
End Type
Private Type MCI_RECORD_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
End Type
Private Type MCI_SAVE_PARMS
dwCallback As Long
lpFileName As String
End Type
Private Type MCI_SEEK_PARMS
dwCallback As Long
dwTo As Long
End Type
Private 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
Private Type MCI_SET_PARMS
dwCallback As Long
dwTimeFormat As Long
dwAudio As Long
End Type
Private Type MCI_SOUND_PARMS
dwCallback As Long
lpstrSoundName As String
End Type
Private Type MCI_STATUS_PARMS
dwCallback As Long
dwReturn As Long
dwItem As Long
dwTrack As Integer
End Type
Private Type MCI_SYSINFO_PARMS
dwCallback As Long
lpstrReturn As String
dwRetSize As Long
dwNumber As Long
wDeviceType As Long
End Type
Private Type MCI_VD_ESCAPE_PARMS
dwCallback As Long
lpstrCommand As String
End Type
Private Type MCI_VD_PLAY_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
dwSpeed As Long
End Type
Private Type MCI_VD_STEP_PARMS
dwCallback As Long
dwFrames As Long
End Type
Private Type MCI_WAVE_DELETE_PARMS
dwCallback As Long
dwFrom As Long
dwTo As Long
End Type
Private Type MCI_WAVE_OPEN_PARMS
dwCallback As Long
wDeviceID As Long
lpstrDeviceType As String
lpstrElementName As String
lpstrAlias As String
dwBufferSeconds As Long
End Type
Private Type MCI_WAVE_SET_PARMS
dwCallback As Long
dwTimeFormat As Long
dwAudio As Long
wInput As Long
wOutput As Long
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

Private Type MDICREATESTRUCT
szClass As String
szTitle As String
hOwner As Long
x As Long
y As Long
cx As Long
cy As Long
style As Long
lParam As Long
End Type

[A$$Bandit]

WOW man, you went to a lot of trouble! Thanks!

[Cander]

Problem: I am assuming you want this for VB .NET judging by your previous post about the MCI control. The posted code wont work without alot of alterations.

[Cander]

here is mciSendString example in vb .net which may provide some assistance.