Expulsar la bandeja de CD

[[ArdiIIa]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Open drive X: (X being the letter of the drive you wish to open)
  mciSendString('open cdaudio!E: alias driveX', nil, 0, 0);
  mciSendString('set driveX door open wait', nil, 0, 0);
end;

Aquí marcas un alias.... indicando la unidad que te interesa. -E- en este caso.