cd room açma ve kapatma kodLarı

Açma kod:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("set cdaudio door open")
End Sub


kapatma kodu:

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



yapıLışı:

form'un içine 2 tane commandbutton yerleştir sonra cd room aş mak için açmak kodunu 1 commandbutton'a yerleşti
kapatmak için 2 commandbutton'a yerLeştir bu kodar koLar


koLY GelSİn