|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Drives/CD-ROM/Discos)
|
|
 |
Título da Dica: Abrir e Fechar o Drive de CD
|
 |
|
|
|
Postada em 12/1/2006 por Bruno Lopes
bruno_dlopes@yahoo.com.br
Public 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
ABRIR A PORTA DO CD
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
FECHAR A PORTA DO CD
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
|
|
|
|
|
