Code:

function MousePresent : Boolean;

begin

if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then

Result := true

else

Result := false;

end;