我如何获得TAnimate的通用AVI在Vista和Win7上工作？

Question

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

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

Answer 1

您必须将单元ShellAnimations添加到您的项目中，或从组件面板的Win32选项卡中添加组件TShellResources。 （在安装Windows Vista德尔福2007年测试）

uses 
ShellAnimations; 

本机增加了以下替换动画资源，你的可执行文件：

• FindFolder.res
• FindFile.res
• FindComputer.res
• CopyFiles.res
• CopyFile.res
• 个RecycleFile.res
• EmptyRecycle.res
• DeleteFile.res

再见。