|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Drives/CD-ROM/Discos)
|
|
 |
Título da Dica: Abrir e fechar a gaveta do CDROM
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
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&)
|
|
|
|
|
