Проверить видимость курсора
Code:
function IsCursorVisible: Boolean;
begin
Result := ShowCursor(True) > 0;
ShowCursor(False);
end;
Автор: s-mike Взято из http://forum.sources.ru
©Drkb::02332