Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!csun!Twg-S5!abcscnuk
From: abcscnuk@Twg-S5.uucp (Naoto Kimura (ACM))
Newsgroups: comp.lang.pascal
Subject: Re: Where's my mouse?
Keywords: mice,microsoft,mouse,bios,code
Message-ID: <1990Nov5.102349.9144@csun.edu>
Date: 5 Nov 90 10:23:49 GMT
References: <9011042328.AA18035@gnu.AI.MIT.EDU>
Sender: news@csun.edu (News Administrator)
Distribution: usa
Organization: csun
Lines: 21

function MouseInstalled : Boolean;
    var
	Regs	: Registers;
    begin
	Regs.AX = 0;	(* Init Mouse *)
	Intr($33,Regs);
	MouseInstalled := (Regs.AX <> 0);
    end.

Of course, a better solution would be to make a unit that would have in
its initialization code a call to the initialize procedure, which then
sets a boolean variable.  In your program, all you would need to do is
to read that boolean variable.  There was a posting a while ago that
contained such a unit (from of an article in the short-lived Borland's
Turbo Technix).

                //-n-\\			 Naoto Kimura
        _____---=======---_____		 (abcscnuk@csuna.csun.edu)
    ====____\   /.. ..\   /____====
  //         ---\__O__/---         \\	Enterprise... Surrender or we'll
  \_\                             /_/	send back your *&^$% tribbles !!