如何加载动画光标

Question

如何加载动画光标,该调用哪些函数?

Answer 1

Delphi编程中实现动画鼠标　　动画光标是以ANI为扩展名的文件,它的作用就是让你的鼠标外形变成动画,而不只是一个斜三角形，具体方法如下： 
　　新建一个工程,在FORM1上放一个BUTTON1,再找一个动画光标文件＊.ANI,你可以到网上下载一个,也可从一些光盘中找一个(如：查找＊.ANI文件),然后输入以下代码： 
　　unit CURSOR; 
　　interface 
　　uses 
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; 
　　Type TForm1 = class(TForm) 
　　Button1: TButton; 
　　procedure FormCreate(Sender: TObject); 
　　procedure FormClose(Sender: TObject; var Action: TCloseAction); 
　　procedure Button1Click(Sender: TObject); 
　　private { Private declarations } 
　　public { Public declarations } 
　　end; 
　　var 
　　Form1: TForm1; 
　　HOLDCURSOR:HCURSOR; ′定义一个变量 
　　Implementation {＄R ＊.DFM} 
　　procedure TForm1.FormCreate(Sender: TObject); 
　　VAR 
　　HNEWCURSOR:HCURSOR; 
　　begin 
　　BUTTON1.CAPTION:=′关闭′; 
　　HNEWCURSOR:=LOADCURSORFROMFILE(′E:\BATMAN.ANI′); 
　　{调用API函数装载动画光标文件,ANI文件路径请根据自己的实际情况进行调整} 
　　HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HNEWCURSOR); 
　　{把原光标储存起来以备以后的恢复} 
　　end; 
　　procedure TForm1.Button1Click(Sender: TObject); 
　　begin 
　　HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HOLDCURSOR); 
　　CLOSE(); {在结束程序前一定不要忘记恢复光标} 
end; 
end. 
　　现在你运行一下(按F9),启动后光标就变成动画光标了。

Answer 2

上面程序有些全角字符，改了一下：unit unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm)
  Button1: TButton;
  procedure FormCreate(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  private { Private declarations }
  public { Public declarations }
end;var
  Form1: TForm1;
  HOLDCURSOR:HCURSOR;  //定义一个变量implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  HNEWCURSOR:HCURSOR;
begin
  BUTTON1.CAPTION:='关闭';
  HNEWCURSOR:=LoadCursorFromFile('c:\winnt\cursors\horse.ani');
  {调用API函数装载动画光标文件,ANI文件路径请根据自己的实际情况进行调整}
  HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HNEWCURSOR);
  {把原光标储存起来以备以后的恢复}
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HOLDCURSOR);
  CLOSE(); {在结束程序前一定不要忘记恢复光标}
end;
end.