Ejetar o Drive de CD

[Flash_VB 0]

Olá..Gostaria de saber como se faz um comandu pra quandu alguém apertar em um CommandButon abrir o drive de cd e quando apertar de novu fechar o drive de cdValew

[Luizgrs 0]

Retirado do site www.silicio.com.br:

Abrir e fechar a gaveta do CDROMPrivate 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 ABRIRCall mciSendString("Set CDAudio Door Open Wait", 0&, _    0&, 0&)'PARA FECHARCall mciSendString("Set CDAudio Door Closed Wait", 0&, _    0&, 0&)

[Stug11 0]

Olá..

 

Gostaria de saber como se faz um comandu pra quandu alguém apertar em um CommandButon abrir o drive de cd e quando apertar de novu fechar o drive de cd

 

Valew

<{POST_SNAPBACK}>

[luiz humberto 0]

Crie uma variável pública e que quando chamar a função abrir atribua a esta variável 1, por exemplo e quando for chamar novamente a função, faz uma verificação para saber qual o valor da variável, se for 1 então terá que fechar o drive e após isso atribua 0 a variável.

 

If Status=0 then  Call Abrir Status=1else Call Fechar   Status=0end if