Cd-Rom Açıp Kapatmak

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 Sub CdAç_Click()
s = mciSendString("set cdaudio door open", 0, 0, 0)
End Sub

Private Sub CdKapa_Click()
d = mciSendString("set cdaudio door closed", 0, 0, 0)
End Sub

Categories: Visual Basic