Lecteurs CD

[Heis Spiter]

Bon, suite au modifications opérées par Fred, mon lecteur ne fonctionne plus, et fait planter Windows ! Pourquoi ? C'est simple :

Code : Tout sélectionner

For k = 1 To NbCDDrives
      ;AddGadgetItem(#GADGET_SelectDrive, -1, Left(CDAudioName(k - 1), 2))
      AddGadgetItem(#GADGET_SelectDrive, -1, Left(CDAudioName(), 2), 2)
    Next

Voila ! Et je ne sais pas quoi faire, de plus dans l'exemple de Fred cela ne marche pas mieux ! Si quelqu'un a une idée, il est le bienvenue !

[Le Soldat Inconnu]

le dernier paramètre, c'est normalement le handle d'un icone, pourquoi tu as mis 2 ?
c'est ça ton problème, non ?

[Heis Spiter]

Je sais pas... justement j'aimerais que l'on me dise ou est le blème, car normalement, ce code retourne les lettres des lecteurs dans une liste défilante. Et maintenant ca fait juste un grande liste vide !

[Le Soldat Inconnu]

Essaye en supprimant le dernier param de la fonction AddGadgetItem

[Heis Spiter]

Pas ca ! Que je lme laisse ou que je l'enleve voici ce que me dit le débugger : Error at line 774: Specified CDAudio unit is out of range

[Le Soldat Inconnu]

ben, ça doit être un bug

par contre, le comptage des cd commence à 0 d'àprés ce code :

Code : Tout sélectionner

Nb = InitCDAudio()

Debug Nb

If Nb
  
  For n = 0 To Nb - 1
    UseCDAudio(n)
    Select CDAudioStatus()
      Case -1
        Debug "Lecteur de CD non prêt (vide ou avec tiroir ouvert)"
      Case 0
        Debug "Lecteur de CD arrêté (mais un CD est à l'intérieur et détecté)"
      Default
        Debug "Plage audio en cours de lecture"
    EndSelect
  Next
  
EndIf