qb64 - 检测 QB64 中的 SHARE

Question

我目前使用以下代码来检测 qb64 中的共享：

有没有更简单的方法来检测共享？

REM detect share in qb64:
InregsX.AX = &H1000
CALL INTERRUPTX(&H2F, InregsX, OutregsX)
IF (OutregsX.AX AND &HFF) = &HFF THEN
    Share.Installed = True
ELSE
    Share.Installed = False
END IF