ÉJECTER LE CD-ROM

Signaler
-
happy05
Messages postés
34
Date d'inscription
mardi 1 mai 2012
Statut
Membre
Dernière intervention
7 juillet 2017
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/54568-ejecter-le-cd-rom

happy05
Messages postés
34
Date d'inscription
mardi 1 mai 2012
Statut
Membre
Dernière intervention
7 juillet 2017

j'ai ajouté des commentaires...
sp40
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
11
Salut,

Ce qui serait bienvenu (voire indispensable...), ce serait de commenter le code que tu proposes. Parce qu'il me semblait (mais peut être que je me trompe) que ce site avait pour vocation d'expliquer un peu la programmation. Je doute fort qu'un débutant (niveau indiqué pour ta source) comprenne l'intégralité de ton code... Un peu de pédagogie que diable !!! :)
Par ailleurs, à quoi servent les déclarations de fonctions CreateFileA, DeviceIoControl et CloseHandle ? (CreateFileA n'est d'ailleurs pas utilisé dans EjectCD...) Si c'est vraiment utile indique pourquoi. Je les ai mises en commentaire et le code fonctionne...
Killer42
Messages postés
5
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
22 septembre 2008

Bonjour,
A par le nombre de lignes ;) ce qui serait intéressant est de savoir comparer les 2 méthodes en mémoires, rapidité, compatibilité etc... Peut-être que mciSendString est codé différemment ?
Mowglinaute
Messages postés
42
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
27 février 2013

Bonjour,
Le plus simple:
1) placer dans uses 'Mmsystem'
2) placer une touche dans Form1.
3) taper:
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door Open wait',nil,0,0);// <<< Ouvre le lecteur.
{Pour fermer le lecteur remplacer Open par Closed}
end;

Voilà bonne continuation ...
MOWGLINAUTE.