procedure VectoredHandler(info: _EXCEPTION_RECORD);
begin
if info.ExceptionAddress =pointer(@aa) then //判断异常是否从aa处过来的
//转向自己的流程
end;
end
//以上三处红色都有错误,请问怎么办,这个结构难弄死了,不怎么会编程,帮看下
function InstallVectoredException: boolean;
type
TAddVectored = function(FirstHandler: integer; VectoredHandler: Pointer): HWND; stdcall;
var
_pAddVectored: TAddVectored;
begin
Result := False;
_pAddVectored := GetProcAddress(LoadLibrary('Kernel32.dll'), 'AddVectoredExceptionHandler');
if not Assigned(_pAddVectored) then Exit;
_pAddVectored(1, @VectoredHandler); //安装VEH
Result := True;
end;