Visual Basic 6 - winmm.dll

Forum - Visual Basic 6 - winmm.dll

m4u (Normal User)
Newbie

Messaggi: 6
Iscritto: 19/08/2007

Postato alle 18:28
Domenica, 19/08/2007

salve a tutti

Sto' studiando VB6 da poco e come OS ho Windows Vista.
Ho un problema con winmm.dll per aprire il cd room,ho seguito le indicazini di un post del forum il quale dice;

Dopo aver dichiarato => 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

per => Aprire il Cd-Rom fai cosi:
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)

ma non mi funziona.

ciao grazie

Dax89 (Member)
Expert

Messaggi: 283
Iscritto: 07/04/2007

Postato alle 18:35
Domenica, 19/08/2007

La frase corretta è:
"set cdaudio door open wait"

Ultima modifica effettuata da Dax89 il 19/08/2007 alle 18:37

m4u (Normal User)
Newbie

Messaggi: 6
Iscritto: 19/08/2007

Postato alle 0:02
Lunedì, 20/08/2007

Io ho fatto un piccolo esempio;

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

Private Sub Command1_Click()
Call mciSendString("set cdaudio door open wait", 0&, 0&, 0&)
End Sub

ma non funziona...

Dax89 (Member)
Expert

Messaggi: 283
Iscritto: 07/04/2007

Postato alle 15:27
Lunedì, 20/08/2007

Questo deve per forza funzionare, ho visto in rete che gli ultimi due parametri sono passati in modo diverso:

Codice sorgente - presumibilmente Visual Basic 6

Call mciSendString("set cdaudio door open wait", 0&, 0, 0)

m4u (Normal User)
Newbie

Messaggi: 6
Iscritto: 19/08/2007

Postato alle 21:27
Lunedì, 20/08/2007

ok funziona

grazie ciao