如何让TAnimate的Common 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;

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

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

再见.