如何在 Windows 中隐藏光标？ （德尔福）

Question

我希望我的程序能够像 Team Player 一样工作。多只鼠标、多光标但只有一个焦点。但问题是我无法隐藏默认光标。我只希望它不可见。 到目前为止，这仅适用于我的应用程序。

ShowCursor(false);

有

Screen.Cursor:=crNone;

没有办法隐藏整个系统的光标（直到我关闭应用程序）？

---

编辑： 这不起作用：

procedure myShowCursor(Show :boolean);
var cursor1, cursor2: HCursor;
begin
 cursor1 :=CopyIcon(Screen.Cursors[crDefault]);
 cursor2 := LoadCursorFromFile('blank\blank.cur');
 if Show then
  SetSystemCursor(cursor1, OCR_NORMAL)
 else
 SetSystemCursor(cursor2, OCR_NORMAL);
end;

这起作用：（但我不能完全使用它）

procedure myShowCursor;
var cursor1, cursor2: HCursor;
begin
 cursor1 :=CopyIcon(Screen.Cursors[crDefault]);
 cursor2 := LoadCursorFromFile('blank\blank.cur');

 SetSystemCursor(cursor2, OCR_NORMAL);
 SetSystemCursor(cursor1, OCR_NORMAL)
end;

---

已解决：通过 SystemParametersInfo 恢复系统光标

procedure TForm1.myShowCursor(Show :boolean);
var cursor1: HCursor;
begin
 cursor1 := LoadCursorFromFile('blank\blank.cur');
 if Show then
  SystemParametersInfo(SPI_SETCURSORS,0,0,WM_SETTINGCHANGE or SPIF_UPDATEINIFILE )
 else
 SetSystemCursor(cursor1, OCR_NORMAL);
end;

Answer 1

首先下载一个空白光标，很多地方都可以得到，我是从
http://pc.autons.net/stuff/blanks/blank.zip
，提取空白.zip，然后将空白.cur 复制并粘贴到所需位置（在本例中，我将其保存到“c:\blank.cur”）
然后尝试这段代码：

var cursor1, cursor2: HCursor;
begin
 cursor1 := CopyIcon(Screen.Cursors[crDefault]);
 cursor2 := LoadCursorFromFile('c:\blank.cur');
 SetSystemCursor(cursor2, OCR_NORMAL);//to hide cursor
 Sleep(2000);
 SetSystemCursor(cursor1, OCR_NORMAL);//to show cursor again
end;

希望这有帮助