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

Следующая функция возвращает true если мышка присутствует.

function MousePresent : Boolean;
begin
  if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then
    Result := true
   else
    Result := false;
end;