怎样改变操作系统默认cursor的形状？？急急……(100分)

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #1

以下语句只能改变当前进程Form内的Cursor<br>&nbsp;Screen.Cursors[5]:=LoadCursor(HInstance,'MyCursor1');<br>&nbsp;Screen.Cursor:=5;<br(要改变操作系统默认鼠标该怎么办？<br>

 

Z

zleo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #2

设置全局光标用setsystemcursor函数把<br>

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #3

to zleo<br>能给出具体代码嘛？

 

Z

zleo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #4

通过资源或者通过文件<br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>var<br>&nbsp; hcursor:Hicon;<br>begin<br>&nbsp; hcursor:=loadcursorfromFile(PChar('C:/WINDOWS/CURSORS/pen_1.cur'));<br>&nbsp; SetSystemCursor(hcursor,OCR_NORMAl);<br>end;<br>

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #5

SetSystemCursor(LoadCursor(HInstance,'MyCursor1'),OCR_NORMAl);

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #6

该回原来默认的箭头<br>SetSystemCursor(LoadCursor(0,IDC_ARROW),OCR_NORMAL);<br>LoadCursor(0,IDC_WAIT)，当前就是一个等待的沙漏<br>LoadCursor(0,IDC_HAND)，当前就是一个手<br>

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #7

谢谢两位