易语言程序异常处理源码

系统结构:异常处理子程序,信息框_,SetUnhandledExceptionFilter,EXCEPTION_RECORD,CONTEXT,EXCEPTION_POINTERS,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 异常处理子程序
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 信息框_
           |  |
           |  |------ _异常按钮_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetUnhandledExceptionFilter
           |  |
           |  |---[dll]------   EXCEPTION_RECORD
           |  |
           |  |---[dll]------   CONTEXT
           |  |
           |  |---[dll]------   EXCEPTION_POINTERS

调用的DLL命令:

.DLL命令 SetUnhandledExceptionFilter, 整数型, "Kernel32.dll", "SetUnhandledExceptionFilter"
    .参数 异常处理函数地址, 整数型

.DLL命令 EXCEPTION_RECORD, , , "RtlMoveMemory"
    .参数 Destination, EXCEPTION_RECORD, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CONTEXT, , , "RtlMoveMemory"
    .参数 Destination, CONTEXT, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 EXCEPTION_POINTERS, , , "RtlMoveMemory"
    .参数 Destination, EXCEPTION_POINTERS, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型