[VB6]aprire il lettore...

[I'mtheleader]

Ciao a tutti...

Mi ricordo che c'era un api che mi permetteva di aprire il cassettino del lettore cd... solo che nn mi ricordo + il nome

Non è qualcuno sa il nome o perlomeno sa un modo per aprire il lettore cd?

Ciao a tutti e grazie in anticipo.. :metallica

[goku370]

Dunque....

'con questo dichiari l'API
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
'Apertura/chiusura lettore
Dim retvalue As Long

Private Sub Command1_Click() ' per aprire
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Private Sub Command2_Click()' per chiudere
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Ciao, ciao