Brilliant! just what i needed and just when i needed it!

can you provide modified code if there are multiple cd roms

i cant get it to work it says theres a sytax error

Syntax needed to be modified slightly but it works great, to bad it cant handle more than one CD drive.

or watch this: http://www.google.n..blem&meta=

This works in Delphi should work in VB also

Private Sub cmdOpenCD_Click()
Dim lRet As Long
' replace 'D' after 'cdaudio!' to the drive letter of the CD/DVD Drive you want
lRet = mciSendString('open cdaudio!D: alias driveX', 0&, 0, 0)
lRet = mciSendString('set driveX door open wait', 0&, 0, 0)
lRet = mciSendString('close driveX', 0&, 0, 0)
End Sub

Private Sub cmdCloseCD_Click()
Dim lRet As Long
' replace 'D' after 'cdaudio!' to the drive letter of the CD/DVD Drive you want
lRet = mciSendString('open cdaudio!D: alias driveX'), 0&, 0, 0)
lRet = mciSendString('set driveX door closed wait', 0&, 0, 0)
lRet = mciSendString('close driveX', 0&, 0, 0)
End Sub

tyvm for this! i need it in so many of my programs. one thing: does this work on removable disk drives? aka flash drives? if u could answer that would be gr8

nice code

Here's some Delphi code to stop USB Flash drive (like clicking on the USB icon in the task tray) but by passing a drive...
eg.
StopUSBDevice('G:');

but it can also be used to eject a CD-ROM drive...

const
FILE_DEVICE_MASS_STORAGE = $2D;
METHOD_BUFFERED = $00;
FILE_READ_ACCESS = $01;

IOCTL_STORAGE_EJECT_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) or (FILE_READ_ACCESS shl 14) or ($202 shl 2) or (METHOD_BUFFERED);

procedure StopUSBDevice(const sDrive: String);
var
hHandle: THandle;
nUnused: DWORD;
begin
hHandle:=CreateFile(PChar('\\.\'+sDrive), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
if (hHandle=INVALID_HANDLE_VALUE) then
RaiseLastOSError;
try
if not DeviceIoControl(hHandle, IOCTL_STORAGE_EJECT_MEDIA, nil, 0, nil, 0, nUnused, nil) then
RaiseLastOSError;
finally
CloseHandle(hHandle);
end;
end;

HTH,
AzzaAzza69

Here's the code for Visual basic 2005!I thing it works with the older version. . .



Option Explicit On
Public Class Form1
Public 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
Sub OpenCDDoor()
mciSendString('Set CDAudio Door Open Wait', 0&, 0&, 0&)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mciSendString('Set CDAudio Door Open Wait', 0&, 0&, 0&)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mciSendString('Set CDAudio Door Closed Wait', 0&, 0&, 0&)
End Sub
End Class

This will eject the D drive or you can replace the 'D':
d.DriveLetter = 'D'
with the drive you want to eject. If you want them all, just remove that section of the if statement to look like:

If d.DriveType = CDROM Then


Cheers
'=============

'Add On Code To Eject CD ROM Drive
Const CDROM = 4
For Each d in CreateObject('Scripting.FileSystemObject').Drives
If d.DriveType = CDROM AND d.DriveLetter = 'D' Then
Eject d.DriveLetter & ':\'
End If
Next

Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject('Shell.Application')_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb('E&ject')
End Sub

how to eject cd rom tray using macromedia flash 8 plz send me the tutorial to han999000@gmail.com

Thank u Longhaircook