XProfan

DEF @GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
Declare MHANDLE&,Module$
LET MODULE$=$SYSPATH+"Advapi32.DLL"
LET MHANDLE&=@GetModuleHandle(@ADDR(Module$))

IF MHANDLE&=0

    @Messagebox("Die DLL "+Module$+" ist nicht geladen.","Mist passiert!",64)

else

    @Messagebox("Die DLL "+Module$+" ist geladen und mit ihr kann gearbeitet werden.","Hurra!",64)

endif