Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
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.