USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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&)
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página