O cursor de animação é um arquivo com ANI como a extensão.
Crie um novo projeto, coloque um botão1 no Form1 e, em seguida, encontre um arquivo de cursor de animação *.ani. Código:
Cursor da unidade;
interface
usos
Windows, mensagens, sysutils, classes, gráficos, controles, formulários, diálogos, stdctrls;
TIPO TForm1 = classe (TForm)
Button1: tbutton;
Procedimento FormCreate (remetente: Tobject);
Procedimento FormClose (remetente: TOBJECT; VAR Action: TCLOSEACTION);
Procedimento Button1Click (remetente: Tobject);
Private {Declarações Privadas}
public {Public Declardations}
fim;
var
Form1: TForm1;
HoldCursor: Hcursor;
Implementação {＄ r ＊ .dfm}
procedimento TForm1.FormCreate (remetente: Tobject);
Var
HNewcursor: Hcursor;
Começar
Button1.Caption: = ′ Close ′;
HNewCursor: = loadCursorFromFile (′ E: /batman.ani ′);
{Chame a função da API para carregar o arquivo de cursor de animação, por favor ajuste o caminho do arquivo ANI de acordo com sua situação real}
HoldCursor: = setClasslong (form1.handle, gcl_hcursor, hnewcursor);
{Salvar o cursor original para a recuperação futura}
fim;
procedimento TForm1.Button1Click (remetente: TOBJECT);
Começar
HoldCursor: = setClasslong (form1.handle, gcl_hcursor, holdcursor);
Fechar ();
fim;
fim.
Agora você o executa (pressione F9) e, depois de iniciá -lo, o cursor se torna o cursor de animação.