madshi.net

Code: Select all

procedure HiddenHandler(const exceptIntf: IMEException; var handled: boolean);
begin
  handled := true;
end;

var i1   : integer;
    time : dword;
begin
  RegisterHiddenExceptionHandler(HiddenHandler, stDontSync);

  time := GetTickCount;
  for i1 := 0 to 999 do
    try
      raise Exception.Create('test');
    except end;
  time := GetTickCount - time;
  MessageBoxA(0, PAnsiChar(AnsiString(IntToStr(time) + ' ms')), 'time', 0);
end.

Code: Select all

unit madExcept;

...
var OnAppHookExceptions: procedure(const pException: TObject; const exceptAddr: Pointer) = nil;
...

implementation
...

   procedure InterceptFreeExceptObject(exceptObject: TObject);
   begin
      ...
      if (GetCurrentThreadId <> HandleExceptionTid) and
	     ((@OnAppHookExceptions <> nil) Or ((HiddenHandlers ...) or (HiddenHandlersOO ...))) and
		 (exceptObject <> nil) and ... then begin
		 if @OnAppHookExceptions <> nil then
		    OnAppHookExceptions(exceptObject, System.ExceptAddr);
         if ((HiddenHandlers ...) or (HiddenHandlersOO ...)) then
            HandleException(etHidden, ...);		 
      end;//if
	  ...
   end;
   
   procedure HandleHiddenException(exceptObject: TObject; RaiseList: pointer);
   var ...;
   begin
      if exceptObject <> nil then begin
	     try
		    ...
		 except end;
		 if (GetCurrentThreadId <> HandleExceptionTid) and
		    ((@OnAppHookExceptions <> nil) Or ((HiddenHandlers ...) or (HiddenHandlersOO ...))) and (RaiseList <> nil) and
			(MadException(...)...) and
			IsValidObject(...) then begin
		    ea:= nil;
            TryRead(...);
			if @OnAppHookExceptions <> nil then
		       OnAppHookExceptions(exceptObject, ea);
            if ((HiddenHandlers ...) or (HiddenHandlersOO ...)) then
               HandleException(etHidden, ...);
		 end;
	  end;
   end;