Opening and Closing CD TRAY

[Ali Rizwan]

Hi all,

Here is a simple used to Open and Close CD TRAY.
Comment it PLEASE!

'add this lines of code in the declaration section of a standard module.
 '---------------
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpszCommand As String, ByVal lpszReturnString As String, _
ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long
'--------------
 
'Now in the module also declare this
'-----------------------------------
 Sub opencd()
     Call mciSendString("set CDAudio door open", 0, 0, 0)
    End Sub
 
Sub closecd()
   Call mciSendString("set CDAudio door closed", 0, 0, 0)
    End Sub
'-----------------------------------
'Now add two command buttons to the form ( its obvious what i have taken below)
'-----------------------------------
Private Sub Command1_Click()
Call Module1.opencd
End Sub
 
Private Sub Command2_Click()
Call Module1.closecd
End Sub
'----------------------------------

Regards
>> ALI <<

[VladicaJ]

If your want here it is. COMMONT: good code. I use in some of my programs

[BorlandDelphi]

Very useful and very good