Cd kapagını açıp kapamak

Son güncelleme:
  • Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Command1_Click()
    mciExecute ("Set CDAudio door Open")
    End Sub

    Private Sub Command2_Click()
    mciExecute ("Set CDAudio door closed")
    End Sub
0 0 0