แอนิเมชั่นเคอร์เซอร์เป็นไฟล์ที่มี ANI เป็นส่วนขยาย
สร้างโครงการใหม่วางปุ่ม 1 บน Form1 จากนั้นค้นหาไฟล์เคอร์เซอร์แอนิเมชั่น *.Ani รหัส:
เคอร์เซอร์หน่วย;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, คลาส, กราฟิก, การควบคุม, รูปแบบ, กล่องโต้ตอบ, stdctrls;
พิมพ์ tform1 = คลาส (tform)
ปุ่ม 1: tbutton;
โพรซีเดอร์แบบฟอร์ม (ผู้ส่ง: tobject);
Procedure FormClose (ผู้ส่ง: tobject; การกระทำของ VAR: tcloseaction);
ขั้นตอน button1click (ผู้ส่ง: tobject);
ส่วนตัว {ประกาศส่วนตัว}
สาธารณะ {ประกาศสาธารณะ}
จบ;
วาจา
Form1: TFORM1;
HoldCursor: hcursor;
การใช้งาน {＄ r ＊ .dfm}
ขั้นตอน TFORM1.FormCreate (ผู้ส่ง: TOBJECT);
วาจา
HNewCursor: hcursor;
เริ่ม
button1.caption: = ′ปิด′;
hNewCursor: = loadcursorFromFile (′E: /batman.ani′);
{เรียกฟังก์ชัน API เพื่อโหลดไฟล์เคอร์เซอร์ภาพเคลื่อนไหวโปรดปรับเส้นทางไฟล์ ANI ตามสถานการณ์จริงของคุณ}
HoldCursor: = setClassLong (form1.handle, gcl_hcursor, hnewcursor);
{บันทึกเคอร์เซอร์ดั้งเดิมสำหรับการกู้คืนในอนาคต}
จบ;
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
เริ่ม
HoldCursor: = setClassLong (form1.handle, gcl_hcursor, holdcursor);
ปิด (); {อย่าลืมคืนค่าเคอร์เซอร์ก่อนที่จะจบโปรแกรม}
จบ;
จบ.
ตอนนี้คุณเรียกใช้ (กด F9) และหลังจากเริ่มต้นเคอร์เซอร์จะกลายเป็นเคอร์เซอร์แอนิเมชั่น