CONTEXT structure delphi

unit VectoredException;

interface

uses
    SysUtils;

function AddVectoredExceptionHandler(Level, Handler : Cardinal):Cardinal; stdcall; external 'kernel32.dll' name 'AddVectoredExceptionHandler';

type
    ntInformation = record
        ErrorCode : Cardinal;
        ErrorFlags: Cardinal;
        Unused    : Cardinal;
        Address   : Cardinal;
        nParams   : Cardinal;
        eExtended : Cardinal;
    end;

    ntContext = record
        Dr0 : Cardinal;
        Dr1 : Cardinal;
        Dr2 : Cardinal;
        Dr3 : Cardinal;
        Dr4 : Cardinal;
        Dr5 : Cardinal;
        Dr6 : Cardinal;
        Dr7 : Cardinal;

        Unused : Cardinal;

        SegGs : Cardinal;
        SegFs : Cardinal;
        SegEs : Cardinal;
        SegDs : Cardinal;

        Edi   : Cardinal;
        Esi   : Cardinal;
        Ebx   : Cardinal;
        Edx   : Cardinal;
        Ecx   : Cardinal;
        Eax   : Cardinal;

        Ebp   : Cardinal;
        Eip   : Cardinal;
        SegCs : Cardinal;
        EFlags: Cardinal;
        Esp   : Cardinal;
        SegSs : Cardinal;
    end;

    _VectoredException = record
        Info : ^ntInformation;
        Context : ^ntContext;
    end;

    TVectoredException = ^_VectoredException;

implementation

end.