VB 2005 - Cd tray açıp kapama

Aşağıda cd tray i nasıl açılıp kapatılabileceğin göstermeye çalışacapım.



Öncelikle bir fonksiyon deklare ediyoruz long olarak. Class seviyesinde. Sonra da kodu nerede cd yi kapamak veya açmak istiyorsan oraya ekliyoruz.



Private setTrayStatus As Long



Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _

(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _

ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer





‘bu kodu cd tray i açmak için yazın

setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 1)



‘burayı da kapatmak için

setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 0)





bu kadar kolay. :)