ABRINDO E FECHANDO O DRIVE DE CD
Olá galera, Como é mesmo que faz para abrir e fechar o Drive de Cd, qual o código, é q eu perdi o meu, não sei onde está mais.
Falows e obrigado a todos .
Falows e obrigado a todos .
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
'PARA ABRIR
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
'PARA FECHAR
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
ait", 0&, 0&, 0&)
esse codigo é aqui do site mesmo!!
Alias "mciSendStringA" (ByVal lpstrCommand As _
String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback _
As Long) As Long
'PARA ABRIR
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
'PARA FECHAR
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
ait", 0&, 0&, 0&)
esse codigo é aqui do site mesmo!!
Tópico encerrado , respostas não são mais permitidas