Control de Errores (Recomendacion)

[cesarsoftware]

prueba con esto:

Código Delphi [-]
 
var
 wOldErrorMode: word;
begin
 // indicar a Windows que ignore errores críticos
  // y almacene el modo de error actual
  wOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    fbFichero := FileOpen(fichero, fmOpenRead);
  except
    // volver al modo de error previo
    SetErrorMode(wOldErrorMode);
    Result := False;
    Exit;
  end;
  iTotalBytes := FileSeek(fbFichero, 0, 2);
  FileClose(fbFichero);
  if iTotalBytes = 0 then
  begin
    // volver al modo de error previo
    SetErrorMode(wOldErrorMode);
  end;
end;