请问如何修改系统鼠标指针呢?我现在有一个ico图标文件,想修改成系统鼠标指针,如何做?

Question

请问如何修改系统鼠标指针呢?我现在有一个ico图标文件,想修改成系统鼠标指针,如何做?

Answer 1

const
  crMyCursor=1;//静态及动画光标
Screen.Cursors[crMyCursor]:=LoadCursorFromFile(PChar('c;\你的光标'));Screen.Cursor:=crMyCursor;//使用光标Screen.Cursor:=crDefault;//恢复光标

Answer 2

改正一句：
Screen.Cursors[crMyCursor]:=LoadCursorFromFile(PChar('c:\你的光标'));

Answer 3

请先将ICO转换成cur或者ani

Answer 4

h:=loadcursorfromfile('c:\windows\desktop\hand.cur');
setsystemcursor(h,ocr_normal);
or
SetSystemCursor(Screen.Cursors[crHand],ocr_normal);///使用Delphi的系统光标
恢复：
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);解决了,谢谢大家.