Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!cs.utexas.edu!sdd.hp.com!mips!pacbell.com!ucsd!ucbvax!J!Adams
From: Adams@J (jma@gnu.ai.mit.edu)
Newsgroups: comp.lang.pascal
Subject: Where's my mouse?
Summary: Finding out if a mouse is active or not
Keywords: mice,microsoft,mouse,bios,code
Message-ID: <9011042328.AA18035@gnu.AI.MIT.EDU>
Date: 4 Nov 90 23:28:01 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: usa
Organization: MIT Laboratory for Computer Science
Lines: 29

I'm trying to find out the proper call to see if a microsoft mouse is
connected to a system or not (And , if the driver is loaded or not.)
Microsoft doesn't seem to be of any help in this , just telling me to
buy their book on programming their mouse.. (No sense to spend money for
one call, right?) I'm currently using the following routine, which doesn't
seem to work:

function MsMouse : boolean;
var
  mseg, m  : integer;
Begin
  mseg := 256 * mem[$0000:0207] + mem[$0000:0206];
  m    := 256 * mem[$0000:0205] + mem[$0000:0206];
  if (mseg <> 0) and (m <> 2) then
    Msmouse := true
  else
    msmouse := false;
end;  { MsMouse }

Any ideas will be appreciated! Email me... Thanks.



-+-+-+-                                                                 -+-+-+-
John Adams                                       INTERNET -> jma@gnu.ai.mit.edu

 "What you get is all real; I can't put on an act, it takes brains to do
  that anyway..." -- XTC
-=-=-=-                                                                 -=-=-=-