none
bandeja de cd RRS feed

Respostas

  • Se for via VBA, no Windows 7 testei este comando e funcionou. Teste no Windows 8.1:

    Option Explicit
    
    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
    
    Sub OpenCDDrive()
    
    mciSendString "Set CDAudio Door Open", 0&, 0, 0
    
    End Sub
    
    
    Sub CloseCDDrive()
    
    mciSendString "Set CDAudio Door Closed", 0&, 0, 0
    
    End Sub
    


    Rafael Kamimura - http://excelmaniacos.com

    segunda-feira, 27 de julho de 2015 14:43

Todas as Respostas

  • Acredito que você não esta no forum mais adequado ! A não ser que queira fazer via VBA.. É o caso ?
    sábado, 25 de julho de 2015 18:05
  • Se for via VBA, no Windows 7 testei este comando e funcionou. Teste no Windows 8.1:

    Option Explicit
    
    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
    
    Sub OpenCDDrive()
    
    mciSendString "Set CDAudio Door Open", 0&, 0, 0
    
    End Sub
    
    
    Sub CloseCDDrive()
    
    mciSendString "Set CDAudio Door Closed", 0&, 0, 0
    
    End Sub
    


    Rafael Kamimura - http://excelmaniacos.com

    segunda-feira, 27 de julho de 2015 14:43