delphi Exception 获取错误代码

在 Delphi 中，可以使用 Exception 类的 ErrorCode 属性来获取异常的错误代码。例如：

try
  // some code that may raise an exception
except
  on E: Exception do
    ShowMessage('Exception occurred. Error code: ' + IntToStr(E.ErrorCode));
end;

请注意，不是所有的异常都有错误代码，因此 ErrorCode 可能返回 0 或其他默认值。此外，错误代码的含义取决于抛出异常的函数或库，因此需要查阅相应的文档才能理解错误代码的含义。