Hola:
¿Se puede saber pulsando un botón con Delphi si hay un disco dentro o no?
Aquí un ejemplo de abrir y cerrar la bandeja del lector.
Código:
unit Bandeja_Delphi;
interface
// Añadir MMSystem en el uses.
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MMSystem;
type
TForm1 = class(TForm)
GroupBox_Bandeja: TGroupBox;
Button_Abrir: TButton;
Button_Cerrar: TButton;
Label_Mensaje: TLabel;
procedure Button_AbrirClick(Sender: TObject);
procedure Button_CerrarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button_AbrirClick(Sender: TObject);
begin
Label_Mensaje.Caption := 'Abriendo...';
Application.ProcessMessages;
mciSendString('Set cdaudio door open wait', nil, 0, 0);
Label_Mensaje.Caption := 'Abierto.';
end;
procedure TForm1.Button_CerrarClick(Sender: TObject);
begin
Label_Mensaje.Caption := 'Cerrando...';
Application.ProcessMessages;
mciSendString('Set cdaudio door closed wait', nil, 0, 0);
Label_Mensaje.Caption := 'Cerrado.';
end;
end.
No se si existe esa posibilidad.
Saludos.