如何让 TAnimate 的通用 AVI 在 Vista 和 Win7 上运行？

Question

我有一个 Delphi 2007 应用程序，它有一个带有 FindFile Common AVI 的 TAnimate 控件。当应用程序在 Windows XP 上运行时它工作得很好，但在 Windows 7 上却什么也没有出现。我听说它现在需要自己的线程，但我不确定。

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

Answer 1

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

uses
ShellAnimations;

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

• 查找文件夹.res
• 查找文件.res
• 查找计算机.res
• 复制文件.res
• 复制文件.res
• 回收文件.res
• 空回收站.res
• 删除文件.res

再见。

Answer 2

Delphi 7 不起作用。我使用 Windows 11，无法将 AVI 加载到组件。我总是出错。