Code: Select all
interface
uses windows,sysutils;
implementation
uses madExcept,idexception;
procedure ExceptionFilter(frozen : boolean;
exceptObject : TObject;
exceptAddr : pointer;
crashedThreadId : dword;
var bugReport : string;
var screenShot : string;
var canContinue : boolean;
var handled : boolean);
begin
if (exceptObject <> nil) and (exceptObject is EIdSilentException) then begin
handled := true;
end;
end;
initialization
RegisterExceptionHandler(ExceptionFilter,false);
I get the following:
[Error] exceptionfilterunit.pas(26): There is no overloaded version of 'RegisterExceptionHandler' that can be called with these arguments
Any ideas? I am using 2.7e