1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

API's no VB 6.0

Discussão em 'Programação' iniciada por miglituh_pondo, 26 de Maio de 2008. (Respostas: 2; Visualizações: 479)

  1. miglituh_pondo

    miglituh_pondo Power Member

    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??
     
  2. jpaulino

    jpaulino Power Member

    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)
     

Partilhar esta Página