Компонент TAnimate и Win7

[SlippyK]

Как в делфи, используя Animate, отобразить стандартную анимацию, например, копирования файла? В семерке же вроде файлы анимации либо по-другому названы, либо расположены в другом месте в отличии от ХР, не помню, где-то встречал такую проблему, но ответа не нашел. Вобщем если пользоваться стандартными хелпами по компоненту - код компилируется, но анимации нет, пустое окно.

Из описания:
TCommonAVI = (aviNone, aviFindFolder, aviFindFile, aviFindComputer, aviCopyFiles, aviCopyFile, aviRecycleFile, aviEmptyRecycle, aviDeleteFile) ;
property ComrnonAVI: TCommonAVI; Задает один из стандартных
видеоклипов, входящтх в библиотеку SHELL32 . DLL

procedure TForml.BitBtnlClick(Sender: TObject);
begin
Animatel.FileName := 'cool.avi'; // Указываем файл с клипом
Animatel.Active := True; // Запускаем клип
end;

Как это работает в семерке?

[volvo877]

Как это работает в семерке?

Кладешь на форму TShellResources и прекрасно работает.