- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Cd-Rom u açıp kapatmak
1.Buttona
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub
2 . buttona
Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub
1.Buttona
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub
2 . buttona
Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub