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

【问题标题】：How do I get TAnimate's Common AVIs to work on Vista and Win7?如何让 TAnimate 的通用 AVI 在 Vista 和 Win7 上工作？
【发布时间】：2009-09-29 14:09:40
【问题描述】：

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

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

【问题讨论】：

标签： delphi delphi-2007

【解决方案1】：

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

uses
ShellAnimations;

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

FindFolder.res
FindFile.res
FindComputer.res
CopyFiles.res
CopyFile.res
RecycleFile.res
EmptyRecycle.res
删除文件.res

再见。

【讨论】：

谢谢。我的动画在 Vista 中停止，这也为我修复了它。 +1 问答