EJETAR

GABYS 29/07/2010 12:44:29
#348773
O que devoo fazer no meu projeto vb6.0
para ejetar cd??
Algoo q num seje muitoo dificil
JAMESBOND007 29/07/2010 13:51:34
#348789
de uma pesquisadinha aqui no fórum mesmo tem exemplos fáceis.
MARCELO.TREZE 29/07/2010 14:44:24
#348793 
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&)
Tópico encerrado , respostas não são mais permitidas
Voltar