:adhone: :master:
Salve a tutti una domanda: IL CODICE PER APRIRE/CHIUDERE IL CASSETTINO DEL LETTORE CD?
Un grazie infinite se me lo inviate.
:adhone: :master:
Salve a tutti una domanda: IL CODICE PER APRIRE/CHIUDERE IL CASSETTINO DEL LETTORE CD?
Un grazie infinite se me lo inviate.
SI IN VB
copia
__________________________________________________ _________________
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
Private Sub ApriCD(lettera_drive As String)
Dim str_msg As String * 255
Dim ret_value As Long
lettera_drive = lettera_drive & ":\"
ret_value = mciSendString("open " & lettera_drive & _
" Type cdaudio Alias cd", str_msg, 255, 0)
ret_value = mciSendString("set cd door open", _
vbNullString, 0, 0)
ret_value = mciSendString("close cd", 0&, 0, 0)
End Sub
Private Sub ChiudiCD(lettera_drive As String)
Dim str_msg As String * 255
Dim ret_value As Long
lettera_drive = lettera_drive & ":\"
ret_value = mciSendString("open " & lettera_drive & _
" Type cdaudio Alias cd", str_msg, 255, 0)
ret_value = mciSendString("set cd door closed", _
vbNullString, 0, 0)
ret_value = mciSendString("close cd", 0&, 0, 0)
End Sub
__________________________________________________ _________________
ad esempio per aprire il cassetto del drive D:\ fai così:
ApriCD "D"
per chiuderlo fai:
ChiudiCD "D"
.......continua
..... continuo
se però non puoi prevedere la lettera del lettore, e non hai voglia di fare una ricerca/verifica sul tipo di drive per scovare la presenza di lettori, fai cosi:
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
Dim ret_value As Long
' questo apre il cassetto
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
' questo lo chiude
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
NOTA
***************************
funziona solo con il primo drive CD-Rom trovato
es. se hai il lettore D: e il masterizzatore E:
questo esempio funziona solo col primo (D
per la scelòta del drive devi usare il primo esempio
che ti ho spedito.
**************************
fammi sapere!!
Ciao!
GRAZIE INFINITE FUNZIONA A MERAVIGLIA SE HAI QUALCHE DOMANDA FAMMELA ANCHE SE NON SO SE TI POTRO' RISP. XCHE' SONO ALLE PRIME ARMI CON VB!!!
SENTI UN'ALTRA COSA, SE INVECE VOLESSI SCRIVERE NEL REGISTRO??? SO CHE SI DEVE UTILIZZARE UN MODULO MA NON LO RIESCO A TROVARE E' PURTROPPO NON HO LA GUIDA!!!
HELP ME!!!
CIAO E GRAZIE ANCORA
per scrivere e leggere sul registro dovresti usare Windows Scripting Host (WSH), se non sono indiscreto.....
cosa ci devi fare?
COSA è WSH???
QuestoOriginariamente inviato da janx
per scrivere e leggere sul registro dovresti usare Windows Scripting Host (WSH), se non sono indiscreto.....
cosa ci devi fare?
...and I miss you...like the deserts miss the rain...
mi servirebbe saperlo, in quanto sto scrivendo un programma con VB, e vorrei scrivere una chiave nel registro, in modo che se il programma viene disinstallato, una volta riinstallato si avranno le stesse impostazioni di prima, tutto qui!!!