delphi - 如何在 Vista Aero 下以编程方式禁用窗口动画？

Question

我的应用程序对几个动态创建的表单进行自动屏幕截图。这在 Windows XP 下工作得很好，但在 Vista Aero 下工作得不太好。大多数表单在屏幕截图中显示为半透明。问题出在Aero的窗口动画上。

如何从 Delphi (2007+) 程序内部检查/禁用/启用此动画？

或者作为替代方案:在进行屏幕截图之前如何确保表单正确显示？

Answer 1

Shoban 评论中的链接引导我走向正确的方向。快速检查显示了 VCL 中 DwmApi 的包装器，然后就直接前进了。这是我现在成功使用的代码:

uses DwmApi;
...
  SaveDwmCompositionEnabled := DwmCompositionEnabled;
  if SaveDwmCompositionEnabled then
    DwmEnableComposition(DWM_EC_DISABLECOMPOSITION);
...
  if SaveDwmCompositionEnabled then
    DwmEnableComposition(DWM_EC_ENABLECOMPOSITION);