Recuperar el error de Windows en errores críticos.
Hay que evitar que el OS lance el error, ahora bien, este error no es una excepción que pueda ser capturada y lanzada por la VCL sino que se genera un error directamente a nivel del OS sin que de lugar a que se cree un objeto excepción, que son las que maneja el Object
Pascal.
Para evitar que el OS genere su propio error hay que usar la función SetErrorMode, usando el valor SEM_FAILCRITICALERRORS hará que el OS no genere sus propios errores críticos sino que los devuelva al proceso que llamó a la función que ha fallado (o sea nuestro propio
programa).
Código Delphi
[-]
lnOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
SetErrorMode(lnOldErrorMode);