function HaveMouse : Boolean;
begin
 result := GetSystemMetrics(SM_MOUSEPRESENT) <> 0;
end;