Comment ouvrir et fermer le tiroir du CD-Rom



Télécharger le projet exemple (2.58 ko)

Pour contrôler l'ouverture et la fermeture du CD-ROM, il suffit de passer par les fonctions de la MCI Windows, qui servent à contrôler tout ce qui a trait à la gestion sonore sous Windows, que ce soit pour le Wave, le Midi, ou les CD-AUDIO en passant par la gestion des Joystick.



Delphi inclut une unité appelée MMSystem.pas qui contient toutes les déclarations des fonctions de la MCI. L'une des fonctions les plus pratiques de cette unité est la fonction MCISendString : Elle permet d'envoyer une commande contenue dans une chaine de caractère et qui est ensuite interprétée par Windows et envoyée au bon périphérique.

Voici le code employé pour l'ouverture et la fermeture du tiroir :

Ouverture et fermeture du tiroir CD

procedure OpenDoor(DriveLetter: string) ;
var
  AliasName: string;
  st: string;
begin
  AliasName := 'Laufwerk' + DriveLetter ;
  st :=  'Open ' + DriveLetter + ': Alias ' + AliasName + ' Type CDAudio';
  mciSendString(@st[1], nil, 0, 0);
  st := 'Set ' + AliasName + ' Door Open';
  mciSendString(@st[1], nil, 0, 0);
end;

procedure CloseDoor(DriveLetter: string);
var
  AliasName: string;
  st: string;
begin
  AliasName := 'Laufwerk' + DriveLetter;
  st :=  'Open ' + DriveLetter + ': Alias ' + AliasName + ' Type CDAudio';
  mciSendString(@st[1], nil, 0, 0 ) ;
  st := 'Set ' + AliasName +' Door Closed';
  mciSendString(@st[1], nil, 0, 0);
end;




3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.011 Secs