Анимация курсора - это файл с ANI в качестве расширения.
Создайте новый проект, поместите кнопку1 на Form1, а затем найдите файл курсора анимации *.ani. Код:
единица курсора;
интерфейс
Использование
Windows, сообщения, Sysutils, классы, графика, управления, формы, диалоги, Stdctrls;
Тип tform1 = class (tform)
Баттон1: Tbutton;
Процедура FormCreate (отправитель: Tobject);
Процедура FormClose (отправитель: tobject; var aect: tcloseaction);
процедура Button1click (отправитель: tobject);
Приватные {частные декларации}
публичные {публичные объявления}
конец;
вар
Форма1: tform1;
Holdcursor: Hcursor;
Реализация {＄ r ＊ .dfm}
Процедура tform1.formcreate (отправитель: tobject);
Вар
Hnewcursor: Hcursor;
Начинать
Button1.caption: = ′ Close ′;
Hnewcursor: = LoadCursorFromFile (′ e: /batman.ani ′);
{Вызовите функцию API, чтобы загрузить файл курсора анимации, измените путь файла ANI в соответствии с вашей реальной ситуацией}
Holdcursor: = setClasslong (form1.handle, gcl_hcursor, hnewcursor);
{Сохранить оригинальный курсор для будущего восстановления}
конец;
Процедура tform1.button1click (отправитель: tobject);
Начинать
Holdcursor: = setClasslong (form1.handle, gcl_hcursor, holdcursor);
Close ();
конец;
конец.
Теперь вы запускаете его (нажмите F9), и после начала его курсор становится курсором анимации.