How do I get TAnimate's Common AVIs to work on Vista and Win7?

Question

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)?

Answer 1

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.