Const TCommonAVI a []=

{aviFindFolder, aviFindFile, aviFindComputer aviCopyFiles, aviCopyFile,

AviRecycleFile aviEmptyRecycle, aviDeleteFile};

?

Const UnicodeString [s]=

{L "aviFindFolder," L "aviFindFile," L "aviFindComputer," L "aviCopyFiles,"

AviCopyFile "L", "aviRecycleFile" L, L "aviEmptyRecycle," L "aviDeleteFile"};

?//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

__fastcall TForm1: : TForm1 (TComponent * Owner) : TForm (the Owner)

{

for (int i=0; I & lt; Sizeof (s)/sizeof (UnicodeString); + + I)

This - & gt; ListBox1 - & gt; The Items - & gt; [I] Add (s);

This - & gt; Animate1 - & gt; AutoSize=false;//control does not automatically adjust the size to fit the content

}

?

//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

//the list box click a

Void __fastcall TForm1: : ListBox1Click (TObject * Sender)

{

//play Windows public AVI clips

This - & gt; Animate1 - & gt; CommonAVI=a [this - & gt; ListBox1 - & gt; ItemIndex];

This - & gt; Animate1 - & gt; Active=true;

}

?

//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --