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

来源：百度知道 编辑：UC知道 时间：2024/06/14 18:49:10
我有一个cur文件，如何加载？
要全局的哟，不是窗体的。

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

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