Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
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
İyi forumlar.
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
İyi forumlar.
