Kontrola pripojenia myši k PC.

function MouseExist : boolean; 
begin 
  if (GetSystemMetrics(SM_MOUSEPRESENT) <> 0) then 
   Result := True 
else 
   Result := False; 
end;