delphi - 如何让 TAnimate 的通用 AVI 在 Vista 和 Win7 上工作？

Question

我有一个 Delphi 2007 应用程序，它有一个带有 FindFile Common AVI 的 TAnimate 控件。当应用程序在 Windows XP 上运行时，它可以完美运行，但在 Windows 7 上从未出现任何内容。我听说它现在需要自己的线程，但我不确定。

有谁知道如何让 TAnimate 的通用 AVI 控件在 Windows 7（或 Vista）上工作？

score 21 · Accepted Answer

您必须将单元 ShellAnimations 添加到您的项目中，或者从组件面板的 Win32 选项卡中添加组件TShellResources 。（在 Windows Vista-Delphi 2007 中测试）

uses
ShellAnimations;

本单元将以下替换动画资源添加到您的可执行文件中：

再见。

1 回答 1