如何让TAnimate的Common AVI在Vista和Win7上运行?

时间:2009-09-29 14:09:40

标签: delphi delphi-2007

我有一个Delphi 2007应用程序,它具有一个带有FindFile Common AVI的TAnimate控件。当应用程序在Windows XP上运行时,它可以正常工作,但在Windows 7上没有任何内容。我听说它现在需要自己的线程,但我不确定。

有谁知道如何让TAnimate的Common AVI控件在Windows 7(或Vista)上运行?

1 个答案:

答案 0 :(得分:20)

您必须将单元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

再见。