Question

Delphi中怎样用事件触发改变全局鼠标指针光标？

我有一个cur文件，如何加载？
要全局的哟，不是窗体的。

Answer 1

//设置系统光标
procedure TForm1.FormCreate(Sender: TObject);
var
NewCursor :HCursor;
begin
NewCursor := LoadCursorFromFile('光标位置);
SetSystemCursor(NewCursor,OCR_NORMAL);
end;

//还原系统默认光标
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);