Duda con FileExists

[ecfisa]

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.