Как узнать, присутствует ли мышка?

function MousePresent : Boolean; 

begin 
if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then 

  Result := true 

else 

  Result := false; 

end; 

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