CISA FotoGallery

Statistiche

Tot. visite contenuti : 927969
Home Articoli tecnici VBA Aprire lettore cdrom

Aprire lettore cdrom

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long


Sub cmdApri_click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End sub


Sub cmdChiudi_click()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End sub