Crie um formulário com dois botões como mostra a figura abaixo::
No botão Abrir insira o código:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
No botão fechar Insira o código:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
Agora insira essa declaração no seu código:
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
Veja o código do projeto completo:
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 Command1_Click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&,
0&)
End Sub
Private
Sub Command2_Click()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&,
0&)
End Sub
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
