[Back to MOUSE SWAG index]  [Back to Main SWAG index]  [Original]

{I need a code snippet that will test to determine whether a mouse driver is loaded. }

FUNCTION DriverInstalled : boolean; {this checks for a mouse driver!}
CONST
  iret = 207;
VAR
  driverOff, driverSeg : Integer;
Begin
  driverOff := MemW[0000:0204];
  driverSeg := MemW[0000:0206];
  IF ((driverSeg <> 0) and (driverOff <> 0)) THEN
    Begin
      IF (Mem [driverSeg:driverOff] <> iret) THEN DriverInstalled := true
       ELSE DriverInstalled := false
    End
       ELSE DriverInstalled := false
End;

[Back to MOUSE SWAG index]  [Back to Main SWAG index]  [Original]