diff --git a/reactos/dll/win32/kernel32/except/except.c b/reactos/dll/win32/kernel32/except/except.c index 52b0a86c5b5..c866ef2d252 100644 --- a/reactos/dll/win32/kernel32/except/except.c +++ b/reactos/dll/win32/kernel32/except/except.c @@ -391,6 +391,12 @@ RaiseException(IN DWORD dwExceptionCode, } } + if (dwExceptionCode == 0xeedface) + { + DPRINT1("Delphi Exception at address: %p\n", ExceptionRecord.ExceptionInformation[0]); + DPRINT1("Exception-Object: %p\n", ExceptionRecord.ExceptionInformation[1]); + } + /* Raise the exception */ RtlRaiseException(&ExceptionRecord); }