EJETAR CD

USUARIO.EXCLUIDOS 06/06/2005 07:57:13
#87191
Senhores estou desenvolvendo um sistema onde preciso verificar os arquivos que estão contidos em um cd, mas para isso preciso ejetar o mesmo para trocar ou colocar um novo, como faço este comando, coloquei um commandButton e preciso do exemplo para abrir e fechar o drive.
USUARIO.EXCLUIDOS 06/06/2005 08:29:22
#87195 
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&)


Private Sub Command1_Click

Call mciSendString("Set CDAudio Door Open Wait", 0&, _
     0&, 0&)

End Sub
LEANDRO.BUENO 06/06/2005 10:31:14
#87217 Resposta escolhida
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

PARA ABRIR:
Private Sub Command1_Click()
mciSendString "Set CDAudio Door Open Wait", vbNullString, 0&, 0&
End Sub

PARA FECHAR:
Private Sub Command2_Click()
mciSendString "Set CDAudio Door Closed Wait", vbNullString, 0&, 0&
End Sub
USUARIO.EXCLUIDOS 06/06/2005 10:58:12
#87227
O mesmo código... Legal hein!?!?!?!

[S55]
LEANDRO.BUENO 06/06/2005 11:12:39
#87232
Realmente, quase igual.
Mas se olhar bem, não é identico
USUARIO.EXCLUIDOS 06/06/2005 11:47:35
#87238
Mas, funciona do mesmo jeito!
LEANDRO.BUENO 06/06/2005 14:07:51
#87266
sim tem razão
USUARIO.EXCLUIDOS 06/06/2005 18:16:03
#87338
Senhores

Agradeço imensamente a vossa ajuda, e sempre que possível tentarei ser reciproco com vocês.

Desde já agradeço.

Paulo Rohr
USUARIO.EXCLUIDOS 09/06/2005 10:51:08
#87963
Valeu ae..

Utilizei esses codigos tbm...
Funciono beleza aqui..


Acho que já podem fechar o topico né!?
A Duvida foi esclarecida!!


Abraços...
Tópico encerrado , respostas não são mais permitidas
Voltar