SystemParametersinfo代码控制光标

//功能说明：SystemParametersinfo代码控制光标 

procedureTForm1.Button1Click(Sender: TObject);
var
        h: HCURSOR;
begin
        h:=LoadCursorFromFile('3dsmove.cur');
        //导入光标
        SetSystemCursor(h,ocr_normal);
end;

procedureTForm1.Button2Click(Sender: TObject);
begin
   SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);
   //取消光标
end;

通过 Wiz 发布