I am using the following code to detect share:
InregsX.AX = &H1000
CALL INTERRUPTX(&H2F, InregsX, OutregsX)
IF (OutregsX.AX AND &HFF) = &HFF THEN
Share.Installed = True
ELSE
Share.Installed = False
END IF
Do you know of an easier way to detect share?