comment ouvrir et fermer un graveur (ou lecteur CD) logiciellement?

comment ouvrir et fermer un graveur (ou lecteur CD) logiciellement? - Programmation

Marsh Posté le 20-02-2001 à 15:12:21    

on est en train de fabriquer un chargeur de CD pour graveur, pour pouvoir graver des dizaines de CDs a la suite sans intervention, et il on arrive pas a trouver comment fermer le graveur de CD, sinon en soudant diretement le bouton du graveur.
merci de votre aide.

Reply

Marsh Posté le 20-02-2001 à 15:12:21   

Reply

Marsh Posté le 20-02-2001 à 15:27:12    

Je sais qu'il y a un api Windows qui fais ca mais je ne sais plus la quel.

Reply

Marsh Posté le 20-02-2001 à 19:39:16    

Y'a tjs les commande MCI sinon mais faut se taper l'initialisation... pour pas grand chose dans ton cas.

Reply

Marsh Posté le 20-02-2001 à 19:56:06    

gabrielj> pareil que Kyle_Katarn:  
 
il faut que tu 'open D: type cdaudio alias CDDrive' (init) et si ca a reussi, que tu 'set CDDrive door open' ou 'set CDDrive door closed' (ouvrir/fermer le lecteur) puis que 'close CDDrive' (release)
 
en delphi, ca donnerait qqchose comme ca :

Citation :


function SetCDTray( ADrive: char; AOpen: boolean ): boolean;
var
  sCmd: string;
begin
  sCmd := 'open '+ADrive+':'+' type cdaudio alias CDDrive';
  if (mciSendString(PChar(sCmd),nil,0,0) <> 0) then
    Result := false
  else
    try
      try
        if AOpen then
          sCmd := 'set CDDrive door open'
        else
          sCmd := 'set CDDrive door closed';
        mciSendString(PChar(sCmd),nil,0,0);
        Result := true;
      finally
        mciSendString('close CDDrive',nil,0,0);
      end;
    except
      result := false;
    end;
end;


 
HTH!

 

--Message édité par JWhy--


---------------
www.alliancefrancophone.org ... Home is where the heart is
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed