Ouvrir le lecteur cd (il me faut le chemin d'accès d'origine du projet sinon çaRésolu

Question

Je sais on a d&#233;ja vu &#231;a partout mais commen t on peut ouvrir le lecteur CD avec vb5


parce-que toutes les sources sont donn&#233;es sans leurs chemin d'acc&#232;s d'origine et donc le 


projet peut pas trouver les fichiers

metalcoder · Accepted Answer

je vois pas le probleme avec ton chemin d'acces

voici un exemple qui ouvre le lecteur

Private Declare Function mciSendStringA Lib "WinMM" (ByVal LpStrCommand As String, ByVal LpStrRtnString As Any, ByVal wRtnLength As Integer, ByVal Hcallback As Integer) As Long
Private Sub Command1_Click()
Dim errorcode As Integer
Dim returnstr As String * 256
errorcode = mciSendStringA("open cdaudio shareable alias cd", returnstr, 255, 0)
    errorcode = mciSendStringA("stop cd", returnstr, 255, 0)
    errorcode = mciSendStringA("set cd door open", returnstr, 255, 0)
    
End Sub

ratala · Answer

Merci beaucoup mais pour fermer on fait comment ??

metalcoder · Answer

errorcode = mciSendStringA("open cdaudio shareable alias cd", returnstr, 255, 0)
    errorcode = mciSendStringA("stop cd", returnstr, 255, 0)
    errorcode = mciSendStringA("set cd door closed", returnstr, 255, 0)


tu met ce code et ton lecteur se ferme

@+

ratala · Answer

Merci baucoup

Ouvrir le lecteur cd (il me faut le chemin d'accès d'origine du projet sinon ça

4 réponses

Discussions similaires