关于AddVectoredExceptionHandler,该怎么处理

关于AddVectoredExceptionHandler
请问AddVectoredExceptionHandler在delphi中要怎么声明？
网上都是vc的

[解决办法]
你问对地方了

Delphi(Pascal) code

function TCGL_VectoredException.VEHInstall: boolean;type  TAddVectored = function(FirstHandler: integer; VectoredHandler: Pointer): HWND; stdcall;var  _pAddVectored: TAddVectored;begin  Result := False;  if FHandler <> 0 then Exit;  _pAddVectored := GetProcAddress(LoadLibrary('Kernel32.dll'), 'AddVectoredExceptionHandler');  if not Assigned(_pAddVectored) then Exit;  FHandler := _pAddVectored(1, @Self.FOnCallback_Instance); //安装VEH  Result := True;end;