Guest --balduino -- Postado Julho 15, 2007 Denunciar Share Postado Julho 15, 2007 tenho dois drives de cd, com o codigo seguinte consigo abrir uma das drives, mas o que alterar no meu codigo para abrir ambas as drivesOption ExplicitPrivate 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 LongSub Main() Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&) MsgBox "clique ok para fechar a gaveta do cd-rom", vbOKOnly Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)End Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Julho 15, 2007 Denunciar Share Postado Julho 15, 2007 Ao invés de somente "CDAudio", experimente usar "CDAudio!k:" ou "CDAudio!k", onde "k" é a letra da respectiva unidade de CD.Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 balduino Postado Julho 22, 2007 Denunciar Share Postado Julho 22, 2007 valeu + 1a vez Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest --balduino --
tenho dois drives de cd, com o codigo seguinte consigo abrir uma das drives, mas o que alterar no meu codigo para abrir ambas as drives
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 Main()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
MsgBox "clique ok para fechar a gaveta do cd-rom", vbOKOnly
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.