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 发布