什么是等效于Application.EnableVisualStyles的本机调用？

Question

我有一个遗留的Windows应用程序，在最新的Win10 Creators更新中出现屏幕渲染问题。我通过调用resolve看到.NET应用程序可以Application.EnableVisualStyles这个问题。但是鉴于我的应用程序是在dotnet之前编写的（在Delphi 6中），我希望有一个本机系统调用可以用来做同样的事情。

Answer 1

在Delphi 6中，您无法直接使用视觉样式。您需要使用第三方库，Mike Lischke的Windows XP Theme Manager。事实上，这个库构成了Delphi 7中包含的内置支持的基础，通过阅读源代码可以很容易地观察到。

要在Delphi 6程序中使用它，您需要执行以下步骤：

1. 在项目中包含XP Theme Manager库。
2. 将应用程序清单资源链接到指定comctl32 v6的可执行文件。网上有很多资源说明如何做到这一点，我在此不再赘述。

请注意，如果您的程序当前未链接应用程序清单，那么您可能会发现其他行为在您执行此操作时发生更改。如果没有清单，程序将在UAC下虚拟化。使用清单，虚拟化被禁用。现在，虚拟化在2005年被引入Vista，作为帮助开发人员适应UAC引入的变化的拐杖。如果您还没有将您的计划改编为UAC，那么我建议您现在可能是时候了！