忽略错误处理的错误信息？

Question

如果在此代码中调用LoadVCLStyle_UnInstall 函数时uninstall.vsf 文件不存在，我如何忽略错误消息框？

我认为使用带有空 Except 的 Try 块就足够了，就像在其他语言中一样，但事实并非如此。

// Import the LoadVCLStyle function from VclStylesInno.DLL
procedure LoadVCLStyle_UnInstall(VClStyleFile: String); external 'LoadVCLStyleA@{app}\uninstall.dll stdcall uninstallonly';

//E: Occurs when the uninstaller initializes.
function InitializeUninstall: Boolean;
begin

  Result := True;

  // Initialize the VCL skin style.
  try
    LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf'));
  except 
  finally
  end;

end;

Answer 1

已经提到了预先检查文件是否存在的可能性。

用户 TLama 提到问题中的代码不是常规的 Pascal 程序代码，而是 Inno Setup 脚本代码，并且我的回答不适用于这种情况。因为以下文本可能会引起 Pascal 程序员的兴趣，所以我们保留它。

EXCEPT 语句本身不处理异常，它只标记发生错误后程序应继续执行的点。当EXCEPT ... END 块中未处理/捕获异常时，它将被转移到下一个更高的EXCEPT 语句。 （Freepacal 参考指南第 17 章）

我也不认为TRY ... EXCEPT ... FINALLY ... END 会起作用。 EXCEPT 或 FINALLY，不能同时使用。

如果您想捕获异常，您必须执行以下操作：

TRY
  LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf'));
EXCEPT 
  On EWhateverException DO ...;
END;

如果文档中没有定义此错误的异常类，您可以使用以下技巧来查找异常类名称：

TRY
  LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf'));
EXCEPT 
  ON Exception DO WriteLn(ExceptObject.ClassName);
END;

使用ON Exception DO ..，您可以捕获任何异常，但我不建议在特定程序中使用该变体。