XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
DLL: Prüfen, ob eine DLL geladen ist.
Def @Getmodulehandle(1) !KERNEL32,GetModuleHandleA
Declare Mhandle&,Module$
Let Module$=$Syspath+ABCDE.DLL
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)