Cd kapagını açıp kapamak

Son güncelleme: 03.03.2006 21:14
  • 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
#03.03.2006 21:14 0 0 0