好象有一个u32支持动画透明，我在书上见过，没用过，你可以自己搜索一下

TrnspAVI.u32 [网友AW5]

一个可以让AVI背景变透明的外部扩展函数
Result:=TrnspAVIErase()
从屏幕把AVI擦掉,返回值,1为成功,0为失败.

Result:=TrnspAVIPause()
暂停AVI,返回值,1为成功,0为失败.

Result:=TrnspAVIPlay(Filename,Top,Left)
播放AVI,filename为文件名,top,left为左上角坐标.
Note: the color of the pixel in a frame's lower-left corner will be used as the transparent color.你说的透明可能是这句注意的话.

Result:=TrnspAVIPosition()
返回当前帧位置

Result:=TrnspAVISeek(Frame)
设置到第几帧,frame填帧数.