Le curseur d'animation est un fichier avec ANI comme extension.
Créez un nouveau projet, mettez un Button1 sur Form1, puis trouvez un fichier de curseur d'animation * .ANI. Code:
curseur unitaire;
interface
usages
Windows, messages, systèmes, classes, graphiques, contrôles, formulaires, boîtes de dialogue, stdctrls;
Type tform1 = classe (tform)
Button1: Tbutton;
Procédure FormCreate (expéditeur: tobject);
Procédure FormClose (expéditeur: tobject; var action: tcloseAction);
Procédure Button1Click (expéditeur: tobject);
Private {Déclarations privées}
public {déclarations publiques}
fin;
var
FORM1: TFORM1;
HoldCursor: HCURSOR;
Implémentation {＄ r ＊ .dfm}
Procédure TForm1.FormCreate (Sender: Tobject);
Var
HNEWCURSOR: HCURSOR;
Commencer
Button1.caption: = ′ Close ';
HNEWCURSOR: = LOADCURSORFROMFILE (′ E: /batman.ani ′);
{Appelez la fonction API pour charger le fichier de curseur d'animation, veuillez ajuster le chemin du fichier ANI en fonction de votre situation réelle}
HoldCursor: = setClassLong (form1.handle, gcl_hcursor, hnewcursor);
{Enregistrer le curseur d'origine pour la récupération future}
fin;
Procédure tform1.button1Click (expéditeur: tobject);
Commencer
HoldCursor: = setClassLong (form1.handle, gcl_hcursor, holdCursor);
Close (); {n'oubliez pas de restaurer le curseur avant de terminer le programme}
fin;
fin.
Maintenant, vous l'exécutez (appuyez sur F9), et après l'avoir démarré, le curseur devient le curseur d'animation.