Duda con FileExists

[ecfisa]

Hola nena_yei.

Que extaño...

Para descartar algún problema en el código, podrías hacer una prueba simple en un nuevo proyecto vacío.

Acabo de hacer esta con Delphi 7 y no produce ese comportamiento:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FileExists('D:\PRUEBA.XYZ') then
    ShowMessage('Existe')
  else
    ShowMessage('No Existe');
end;

Si sigue dando el error, ampliá más detalles (S.O, versión Delphi, en que momento te sucede, etc).

Saludos.

[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.

[nena_yei]

Gracias ecfisa, luego lo pruebo y te informo si la solución me vale por el momento. De todas maneras, si alguien tiene alguna otra solución adelante!

Un saludo