API's no VB 6.0

[miglituh_pondo]

boas,

eu ando a procura do codigo para um programa em vb6.0

para k a certa altura ao carregar num comand oualgo do genero, a drive de cd's abra!!

ja vi esse controlo ao vivo e tudo!!


alguem m pode arranjar isso??

 

[jpaulino]

Olá,

No módulo:
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


No Programa (para abrir):
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)


No Programa (para fechar):
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)

 

[miglituh_pondo]

bgd