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...
__________________
ing. frankmch
|