¿Cómo trabajar con EOleSysError?

[ungrande87]

Hola, quisiera que me dieran una mano con EOleSysError, estoy trabajando con Delphi XE con interfaz COM y lo que necesito básicamente es capturar el código de error de las excepciones, y me comentaron que con EOleSysError lo podía realizar. Si alguien tiene algún ejemplo o me puede orientar a como usarlo se lo agradecería. Desde ya muchas gracias

[ecfisa]

Hola ungrande87

Empezado por ungrande87

...
lo que necesito básicamente es capturar el código de error de las excepciones, y me comentaron que con EOleSysError lo podía realizar.

Un ejemplo:

Código Delphi [-]
...
begin
  try
    WordApplication1.Connect;
  except on E: EOleSysError do
      raise Exception.Create(Format('Error: %s %sCódigo: %x', [E.Message, #10#13, E.ErrorCode]));
  end;
  ...

Saludos