Expulsar la bandeja de CD

[paldave]

Hola amigos, mi problema es el siguiente:
En mi PC tengo instaladas 3 unidades de CD y DVD.
Por más que he intento (y lo he hecho durante meses) no consigo lograr abrir la bandeja de la unidad que yo quiero. He logrado identificar las unidades por su letra pero no consigo luego hacerla que se abra.
¿Alguien sabe como hacerlo? Le agradecería mucho me lo dijera.
Saludos a todos y desde ya gracias.

[ArdiIIa]

Mira aquí (http://www.clubdelphi.com/foros/showthread.php?t=3689)

Saludos

[paldave]

Eso ya lo había visto pero expulsa solo la primer unidad de cd, lo que quiero es poder elegir cual de las 3 expulsar.
Gracias de todos modos.

[jhonny]

Seguramente si escribes "unidad" en el buscador de trucos (www.clubdelphi.com/trucos/) http:// encontraras algunas respuestas, como ves todo sigue tal y cual y nadie a ocultado nada ;).

[ArdiIIa]

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.

[paldave]

Muchas gracias [ArdiIIa] (http://www.clubdelphi.com/foros/member.php?u=1788), era justo lo que necesitaba. Sinceramente
creo que no se me hubiera ocurrido nunca.