Hardware Delphi

Title: Is Mouse present?
Question: Routine that returns true if a mouse is present.
Answer:
{
Routine that returns true if a mouse is present.
}
function MousePresent : Boolean;
begin
if GetSystemMetrics(SM_MOUSEPRESENT) 0 then
Result := true
else
Result := false;
end;