TAnimate VCL Animationen

[TUX_der_Pinguin]

So ich habs jetzt endlich herrausgefunden nach einigen Versuchen. Also was ist zu tun um auf die mitgelieferten
Animationen (Videos) von Delphi 2007 zu zugreifen um diese zu nutzen anstatt der Windows eigenen Animationen die
Betriebssystem spezifisch unterschiedlich sind oder gar nicht mehr vorhanden (siehe Windows Vista).

Als erstes benötigt man die entsprechenden Resourcen dafür kann man entweder die "Fake-Komponente" TShellResources
auf sein Formular ziehen, oder man fügt zur Uses Klausel manuell die Unit "ShellAnimations" hinzu, oder aber man
fügt die einzelnen Resource Dateien seinem Projekt zu.

Delphi-Quellcode:

{$R FindFolder.res }   //ID 150
{$R FindFile.res }     //ID 151
{$R FindComputer.res } //ID 152
{$R CopyFiles.res }    //ID 160
{$R CopyFile.res }     //ID 161
{$R RecycleFile.res }  //ID 162
{$R EmptyRecycle.res } //ID 163
{$R DeleteFile.res }   //ID 164

Hinter jeder dieser Dateien verbirgt sich eine Animation, jede dieser Animationen hat eine 'ID' diese ID benötigt man
zur Auswahl der entsprechenden Animation, dies erfolgt recht einfach durch angabe der ID in der TAnimation Komponente.

Delphi-Quellcode:

var
  Ani : TAnimation;

begin
  Ani := TAnimation.Create;
  try
    Ani.ResHandle := HInstance;
    Ani.ResID     := 151;  //ID für die Animation "FindFile"
    Ani.Active    := True;
  finnally
    Ani.Free;
  end;