ÉJECTER LE CD-ROM
Utilisateur anonyme
-
3 sept. 2012 à 22:46
happy05 Messages postés 34 Date d'inscription mardi 1 mai 2012 Statut Membre Dernière intervention 7 juillet 2017 - 11 sept. 2012 à 17:07
happy05 Messages postés 34 Date d'inscription mardi 1 mai 2012 Statut Membre Dernière intervention 7 juillet 2017 - 11 sept. 2012 à 17:07
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
https://codes-sources.commentcamarche.net/source/54568-ejecter-le-cd-rom
11 sept. 2012 à 17:07
11 sept. 2012 à 09:56
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...
10 sept. 2012 à 19:09
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 ?
6 sept. 2012 à 09:13
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.
5 sept. 2012 à 10:45
oui c'est vrai on peut utiliser mcisendstring...
3 sept. 2012 à 22:46