Как получить TAnimate Common AVI для работы с Vista и Win7?

У меня есть приложение Delphi 2007, у которого есть элемент управления TAnimate с общим AVI FindFile. Он отлично работает, когда приложение запускается в Windows XP, но ничего не появляется в Windows 7. Я слышал, что теперь требуется собственный поток, но я не уверен.

Кто-нибудь знает, как заставить TAnimate Common AVI-контроль работать в Windows 7 (или Vista)?

ОТВЕТЫ

Ответ 1

Вы должны добавить модуль ShellAnimations к проекту или добавить компонент TShellResources со вкладки Win32 на палитре компонентов. (Протестирован в Windows Vista- Delphi 2007)

uses
ShellAnimations;

этот блок добавляет следующие исполняемые файлы для замены анимации:

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

Bye.