29

显然，Delphi（任何版本）不支持安全异常处理程序（Visual Studio 中的 /SAFESEH 开关）。在 Windows 8 上使用 Windows 桌面应用程序认证工具包时，这会导致警告。根据Windows 8 桌面应用程序的认证要求：

必须使用 /SafeSEH 标志编译您的应用程序，以确保安全的异常处理

显然Delphi缺少这个开关，所以不能做。我的问题是：

  1. 我的理解是否正确，即使套件仅显示警告（没有失败），由于这是“必须”要求，今天的任何 Delphi 应用程序都无法通过 Windows 8 认证，因此不能包含在 Windows 应用程序商店中？

  2. 是否可以在编译后以某种方式将 SafeSEH 表添加到 PE 文件中（例如，从映射文件或调试符号中提取所需的信息），或者我们绝对需要编译器/链接器对此的支持，因此必须等到 Embarcadero 实现此功能？

澄清一下，我的应用程序是 Windows 32 位桌面应用程序（64 位兼容），而不是 Metro 应用程序。

4

2 回答 2

3

我无法回答问题 1。但是，我很难想象使用must这个词可能意味着该规则是可选的。

至于问题 2，您需要编译器/链接器的支持。您不能合理地期望使用 PE 编辑后链接工具来支持它。考虑以下代码：

try
  Beep;
except
  on E: Exception do
    Writeln(E.ClassName, ': ', E.Message);
end;

编译器发出以下内容：

Project1.dpr.11: try
0041C3AA 33C0             xor eax,eax
0041C3AC 55               push ebp
0041C3AD 68C9C34100       push $0041c3c9 // exception handler is at $0041c3c9
0041C3B2 64FF30           push dword ptr fs:[eax]
0041C3B5 648920           mov fs:[eax],esp
Project1.dpr.12: Beep;
0041C3B8 6A00             push $00
0041C3BA E8E1CEFEFF       call MessageBeep
0041C3BF 33C0             xor eax,eax
0041C3C1 5A               pop edx
0041C3C2 59               pop ecx
0041C3C3 59               pop ecx
0041C3C4 648910           mov fs:[eax],edx
0041C3C7 EB59             jmp $0041c422
0041C3C9 E97291FEFF       jmp @HandleOnException
0041C3CE 0100             add [eax],eax
0041C3D0 0000             add [eax],al
0041C3D2 E42F             in al,$2f
0041C3D4 41               inc ecx
0041C3D5 00DA             add dl,bl
0041C3D7 C3               ret 
0041C3D8 41               inc ecx
0041C3D9 00A3D83E4200     add [ebx+$00423ed8],ah
Project1.dpr.15: Writeln(E.ClassName, ': ', E.Message);
........

现在，真正的异常处理程序是HandleOnException在System.pas. 但是，压入堆栈$0041c3c9的地址是包含该try/except块的代码的本地地址。这意味着为了创建 SafeSEH PE 部分，您需要找到try/except代码中的每一个部分。虽然这显然是可行的，但我认为它并不容易处理。

我宁愿想象 x86 编译器的 SEH 异常处理程序只是_HandleXXX在System.pas. 在这种情况下，添加一个仅列出这些功能的 PE 部分作为链接后步骤将很容易。然而，由于每一个try/except都有自己的本地异常处理程序，我现在相信只有编译器作者才能真正希望添加 SafeSEH PE 部分。

据我所知，没有要求SafeSEH支持 x86 Windows 编译器的 QC 报告。我建议您记录 QC 报告和官方支持案例。

更新： @haimg 做得很好，因为我在失败的地方取得了成功并设法找到了 QC 报告：QC#106781。

于 2012-07-31T13:23:38.543 回答
0

Delphi申请无法通过认证还有其他因素

http://delphitools.info/2012/08/23/why-no-native-winrt-support-in-delphi-xe3/

于 2012-12-26T15:14:35.777 回答