CDROM Açma- Kapama

Forma iki tane command ekleyin ve şu kodları yazın...

Code:

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

Private Sub Command1_Click()
mciExecute ("set cdaudio door open") 'Cdrom aç
End Sub



Private Sub Command2_Click()
mciExecute ("set cdaudio door closed") ' Cdrom kapat
End Sub