什么车改装最像ae86:把资源文件中的ani鼠标保存出来,怎么总是0字节

来源:百度文库 编辑:神马品牌网 时间:2024/04/26 08:11:49
代码是这样的:
procedure ZloadfromResourse(screenindex:integer;name:Pchar);
var td:ticon;
begin
try
td:=ticon.Create;
td.Handle:=Loadcursor(Hinstance,name);
td.SaveToFile('temp.ani');
screen.Cursors[screenindex]:=loadcursorfromfile('temp.ani');
deletefile('temp.cur');
finally
td.free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ZloadfromResourse(2,'mycur');
self.cursor:=2;
end;

end.

这段运行后,总是出现“icon image is not valid"

我看到在目录里生成了一个temp.ani文件,不过它是0字节。

这是为什么?

问题补充:很多盗版的delphi不能使用Brcc32资源制作器

我的可以啊,,我往资源文件里添加图片,.cur格式的鼠标都行,,flash也可以用,

就是ani的鼠标不能用,

怎么回事??