delphi - 显示 Delphi Win32 应用程序中的调用堆栈

Question

我想在 Delphi 2007 (Win32) 的错误对话框中显示堆栈跟踪。

理想情况下，我想要这样的东西:

try
  //do something
except on e : exception do
  begin
    //rollback a transaction or whatever i need to do here       
    MessageDlg('An error has occurred!' + #13#10 +
                e.Message + #13#10 +
               'Here is the stack trace:' + #13#10 +
               e.StackTrace,mtError,[mbOK],0);
  end;  //except
end;  /try-except

输出类似于 IDE 中的调用堆栈:

MYPROGRAM.SomeFunction
MYPROGRAM.SomeProcedure
MYPROGRAM.MYPROGRAM
:7c817067 kernel32.RegisterWaitForInputIdle + 0x49

Answer 1

madExcept有一个 StackTrace 方法(在 madStackTrace 单元中)可以做到这一点。

JEDI Code Library在 JclDebug 单元中提供类似的功能。