delphi - 如何为 VBScript 错误获取更具声明性的字符串

Question

只是为了解释有关上下文的更多信息，这是重现的方法:

• Delphi 7(但也许还有更新的版本)
• 导入类型库“Microsoft VBScript 正则表达式 5.5”

围绕这段代码编写一个程序:

var
  re:RegExp;
try
  re:=CoRegExp.Create;
  re.Pattern:='(';//is an invalid regex, but see below
  re.Test('');
except
  on e:Exception do
    Caption:=e.ClassName+' '+e.Message;
end;

这将引发异常EOleError OLE错误800A139C

这样做是因为 SysErrorMessage 在此代码上返回一个空字符串，并且 EOleSysError 构造函数默认使用 SOleError 资源字符串来返回某些内容。

是否有 WinAPI 替代 SysErrorMessage 来获取更好的错误描述？如果我用谷歌搜索一下，代码确实代表“缺少括号”错误，但如果有一种方法可以从系统获取(本地化)描述，我更愿意使用它，而不是添加枚举我的项目的错误描述常量。

Answer 1

这是一个 COM error 。要获取文字描述，请调用 GetErrorInfo然后IErrorInfo.GetDescription 。但如果您没有得到任何有用的返回，请不要感到惊讶。