Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Abrir/cerrar la bandeja del lector de CD/DVD - Delphi
Lenguaje de programación Borland Delphi



Añade 'MMSystem' en el uses de tu form:

procedure OpenCd(AOpen:Boolean);
const
  DoPlay : array[Boolean] of String = ('Set cdaudio door closed wait',
                                                        'Set cdaudio door open wait');
var
  MyError       : LongInt;
  MyErrorString : array[0..MAXERRORLENGTH - 1] of char;
begin
  MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0);
  if MyError <> 0 then
  begin
    MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1);
    Showmessage(MyErrorString);
    Exit;
  end;
end;
Para abrir el CD:
  OpenCd(TRUE);
Para cerrar el CD:
  OpenCd(FALSE);
El truco anterior esta muy bien, pero si tenemos más de una unidad de CD no deja seleccionar cual abrir. Para eso usaremos este otro código:

Añade 'MPlayer' en el uses de tu form
 procedure TForm1.Button1Click(Sender: TObject);
   procedure AbreCD(Disco : char);
   var
     Tokata : TMediaPlayer;
   begin
     Tokata := TMediaPlayer.Create(nil);
     with Tokata do
     begin
       Parent := Self;
       Visible := FALSE;
       Shareable := TRUE;
       DeviceType := dtCDAudio;
       FileName := Disco + ':';
       Wait:=FALSE;
       Open;
       Eject;
       Close;
       Free;
     end;
   end;
 begin
   AbreCD('F'); //Especificamos qué unidad queremos abrir
 end;




Publicado el: 2003-09-24

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+