Cerrar bandeja CDs

[frankmch]

Esta Solucion esta garantizada ya que la he probado, espero que te funcione.
agrega a el uses de tu form MMSystem
en el ejemplo el evento de abrir y cerrar la bandeja lo ejecuto con un boton, mejor dicho 2 botones uno para abrir y otro para cerrar.

el codigo es el siguiente
para abrir:

procedure TForm1.btnOpenClick(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, 0);
end;

para cerrarla:

procedure TForm1.btnCloseClick(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, 0);
end;

este codigo te abrira y cerrara la unidad maestra en tus cd-roms.

ahora bien, si tienes mas de una unidad este seria el codigo:

para abrir:

procedure TForm1.btnOpenClick(Sender: TObject);
begin
// Open drive X: (X being the letter of the drive you wish to open)
mciSendString('open cdaudio!X: alias driveX', nil, 0, 0);
mciSendString('set driveX door open wait', nil, 0, 0);
end;

para cerrarla:

procedure TForm1.btnCloseClick(Sender: TObject);
begin
// Close drive X:
mciSendString('set driveX door closed wait', nil, 0, 0);
end;


espero te sirva...