Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Проверить видимость курсора

01.01.2007
function IsCursorVisible: Boolean;
begin
  Result := ShowCursor(True) > 0;
  ShowCursor(False);
end;

 
Автор: s-mike

Взято из https://forum.sources.ru