[API] Comment obtenir le statut d'un lecteur de cdrom ?

bonjour
j'aimerai savoir s'il est possible de connaitre le status du cdrom( fermé ou ouvert)
J'ai déja parcourus le forum et la faq. La question à déja été posé. J'ai essayé les différentes solutions proposé mais ca ne marche pas.
Avec le composant tmediaPlayer en utilisant la propriété mode (MediaPlayer.Mode),la valeur mpOpen est normallement retourné si le lecteur est ouvert. Mais lorsque je teste, mpOpen est à chaque fois retourné, que le tiroir soit ouvert ou fermé.

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.ButtonClick(Sender:TObject); begin with mediaPlayer1 do if (MediaPlayer1.Mode=mpOpen)then mciSendCommand(mediaPlayer1.DeviceID,MCI_SET,MCI_SET_DOOR_CLOSED,0) else mciSendCommand(mediaPlayer1.DeviceID,MCI_SET,MCI_SET_DOOR_OPEN,0); end;

---

Est ce que la valeur mpOpen concerne finallement le statut du tiroir ou bien la présence d'un cd?

Sans utiliser le composant mediaplayer, la foncion mciSendCommand retourne 0 si cela à marché. Normallement ,si je veux ouvrir le tiroir avec cette fonction et que le tiroir est déja ouvert, est ce qu'elle doit quand même retourner 0? J'espère que ma demande est clair :roll:
Merci d'avance :D

Je ne pense pas qu'il soit possible de détecter si le lecteur est ouvert. Il y a une bonne raison à ça : certains lecteurs n'ont pas de chariot. Je pense au modèle de type slot-in. Comment détecter quelque chose qui n'existe pas ?
Le seul test réel qui soit valable est de vérifier si un CD est dans le lecteur.

Ahhhhhh, j'suis dégouté. Va falloir trouvé un autre moyen. :cry:
Merci pour ta réponse

Une solution serait de passer par une variable.
Tu peux détecter la fermeture ou l'ouverture du tiroir avec le code de la FAQ.
Au démarrage de ton application, tu essaye de fermer le tiroir, si la fonction renvoie true, c'est que le tiroir était ouvert et que tu l'as fermé, si elle renvoie false, c'est qu'il était déja fermé, dans les deux cas, tu initialise ta variable à false (tiroir fermé). Ensuite tu détectes l'ouverture et la fermeture du lecteur avec ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

type TForm1 = class(TForm) private procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; public   end;   {...}   implementation   {$R *.DFM}   procedure TForm1.WMDeviceChange(var Msg: TMessage); const DBT_DEVICEARRIVAL = $8000; // un CD est inséré DBT_DEVICEREMOVECOMPLETE = $8004; // un CD est retiré var myMsg: string; begin inherited; case Msg.wParam of DBT_DEVICEARRIVAL: begin // tu mets ta variable à false (fermeture) end; DBT_DEVICEREMOVECOMPLETE: begin // tu mets ta variable à true (ouverture) end; end; end;

---

Et pour faire tes tests, tu les fait sur ta variable:
- true --> lecteur ouvert
- false --> lecteur fermé

je n'ai pas trouvé le code que tu as mis dans la faq mais je l'ai retrouvé ailleurs. Par contre, étant ujn super débutant en delphi, j'aurai aimé avoir quelques infos sur les lignes de code que tu as écrit plus haut.
Dans cette déclaration :

Code:

---

procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;

---

Cela concerne des évenements?
La procédure est elle appelé automatiquement? Je suis dans le flou

Oui, la procedure WMDeviceChange(var Msg: TMessage); te permet d'intercepter le message WM_DEVICECHANGE qui est envoyé automatiquement dès qu'un nouveau media est inséré ou retiré (ici c'est un CD) .

merci pour toutes ces info, je vais essayer de me débrouiller avec
a+ :merci: