I have a Delphi 2007 application that has a TAnimate control with a FindFile Common AVI. It works perfectly when the application is run on Windows XP, but nothing ever appears on Windows 7. I've heard it now requires its own thread, but I am not certain.
Does anyone know how to get TAnimate's Common AVI control to work on Windows 7 (or Vista)?
You must add the unit ShellAnimations to you project or add the component TShellResources from the Win32 tab of the component palette. (Tested in Windows Vista- Delphi 2007)
uses
ShellAnimations;
this unit adds the following replacement animation resources to your executable:
- FindFolder.res
- FindFile.res
- FindComputer.res
- CopyFiles.res
- CopyFile.res
- RecycleFile.res
- EmptyRecycle.res
- DeleteFile.res
Bye.
来源：https://stackoverflow.com/questions/1492799/how-do-i-get-tanimates-common-avis-to-work-on-vista-and-win7