アニメーションカーソルは、拡張機能としてのファイルです。
新しいプロジェクトを作成し、Form1にButton1を配置してから、Animation Cursorファイル *をオンラインでダウンロードできます。コード：
ユニットカーソル;
インタフェース
用途
Windows、メッセージ、sysutils、クラス、グラフィック、コントロール、フォーム、ダイアログ、stdctrls;
タイプtform1 = class（tform）
Button1：Tbutton;
手順formcreate（sender：tobject）;
手順formclose（sender：tobject; var action：tcloseaction）;
手順button1click（sender：tobject）;
プライベート{プライベート宣言}
パブリック{公開宣言}
終わり;
var
form1：tform1;
HoldCursor：hcursor;
実装{＄ r ＊.dfm}
手順tform1.formcreate（sender：tobject）;
var
hnewcursor：hcursor;
始める
Button1.Caption：= 'Close';
hnewcursor：= loadcursorfromfile（ ′e：/batman.ani'）;
{API関数を呼び出してアニメーションカーソルファイルをロードします。実際の状況に従ってANIファイルパスを調整してください}
HoldCursor：= SetClassLong（Form1.Handle、GCL_HCURSOR、HNEWCURSOR）;
{将来の回復のために元のカーソルを保存}
終わり;
手順tform1.button1click（sender：tobject）;
始める
HoldCursor：= SetClassLong（Form1.Handle、GCL_HCURSOR、HOLDCURSOR）;
close（）;プログラムを終了する前にカーソルを復元することを忘れないでください}
終わり;
終わり。
これで実行（F9を押します）、起動後、カーソルがアニメーションカーソルになります。