CD Rom açma kodu ! vb6

[Serhat Erzen]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 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.

 

[Snika]

Tşkler