delphi - Delphi 2007：如何设置 TSAWARE？

Question

在 Delphi 2009 及更高版本中，您可以将此行添加到您的项目 .dpr 以在您的应用程序可执行文件中设置 TSAWARE PE 标志：

{$SetPEOptFlags  IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE}

我（错误地）认为 Delphi 2007 不支持这种语法。我有一个应用程序，我还不能从 2007 移植到较新的 Delphi 版本（任务正在进行中，但在接下来的几个月内不会完成） .

更新很简单，Windows 也必须添加到项目 .dpr 中。

Answer 1

我的猜测是Windows您的 .dpr 文件的 uses 子句中缺少该单位。添加它，您将能够编写：

{$SetPEOptFlags IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE}

在您的 .dpr 文件中。虽然很明显你需要在uses子句之后写它。

该$SetPEOptFlags功能是在 Delphi 2007 之前的几个版本中添加的。因此，您可能看到的错误只是IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE没有声明。这可以通过确保符号在 .dpr 文件中可见来解决。显然，您可以通过在 .dpr 文件中声明一个常量来做到这一点，但为了避免重复，我总是更喜欢添加 Windows 单元。

Answer 2

在 D7 下编译

const

IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000;

{$SetPEOptFlags  IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE}