Hola nena_yei.
Después de unas pruebas me salió la ventanita...
Sucede cuando, una vez ejecutada la aplicación, se expulsa la unidad, y no importa si se vuelve a insertar, el error aparece por duplicado.
Supongo que Delphi realiza una captura previa a FileExists y allí se dispara la excepción.
Se puede lograr algo capturando el mensaje
WM_DEVICECHANGE:
Código Delphi
[-]
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
public
end;
var
Form1: TForm1;
Hay_CD: Boolean;
implementation {$R *.DFM}
procedure TForm1.WMDeviceChange(var Msg: TMessage);
begin
inherited;
case Msg.WParam of
$8000: Hay_CD:= True;
$8004: Hay_CD:= False;
end;
end;
Ejemplo para usarlo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if Hay_CD then
begin
if FileExists('D:\setup.exe') then
ShowMessage('Existe')
else
ShowMessage('No Existe');
end
else
ShowMessage('Esperando un CD...');
end;
Ese código evita la duplicación de mensajes, pero la verificación es lenta y puede aparecer 'Esperando un CD...' varias veces hasta que pasen
unos segundos.
Por ahora tal vez te saque del paso, pero seguro que alguien del foro te dará alguna propuesta mejor.
Me olvidaba, tu aplicación debe estar corriendo para detectar la expulsión o ingreso de un CD, si no: 'Esperando un CD...'
Saludos.