ReddeviL10
New member
- Katılım
- 20 Eyl 2006
- Mesajlar
- 1,048
- Reaction score
- 0
- Puanları
- 0
Kod:
cd rom açma kapama
2 commadboton
1 ana forum
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