ANI格式的动画鼠标怎样加到程序中来？(25分)

怎样把ANI格式的鼠标加到程序中来，
请给个例子，谢谢！

LoadCursorFromFile('tmp.ani');
如果是从资源文件中读出的话
可以
来自：柳五公子
资源文件中定义：
AAA RCDATA "AAA.ANI"
procedure TForm1.Button2Click(Sender: TObject);
var
resstrm :TResourceStream;
fname :string;
begin
fname := ExtractFilePath(paramstr(0))+'tmp.ani';
resstrm := TResourceStream.Create(Hinstance,'AAA',RT_RCDATA);
//！！！
resstrm.SaveToFile(fname);
Screen.Cursors[crMyAni] :=LoadCursorFromFile('tmp.ani');
panel3.Cursor := crMyAni;
DeleteFile(fname);
resstrm.Free;
end;

To：vine
非常谢谢你给的例子，我试了，可以实现，
但你是先从资源文件中把动画光标导出为文件然后加载，
这样未必有些重复，能有办法像cur文件一样直接从资源文件
中读取，这不是更省事？
不知有没有办法？
希望大家讨论一下，共同进步！

如何加入到资源文件里

1 LoadCursor 只能调标准的图标！
2 没有 LoadCursorFromResource
直接这样行吗？
screen.Cursors[screenindex]:=HCursor(LoadIcon(Hinstance,'AAA'));

资源文件里没有ani这种各式吧
很多资源的使用都是这样的呵
先加载，用完后DEL
你在SAVE时保证文件名唯一不就行了

多人接受答案了。