XProfan

 $H Windows.ph
EnumGroupIcons(par$(0))// Dateiname der icon(s)enthaltenen Exe oder DLL als Parameter übergeben
Listbox$("Icons",1)
End

Proc EnumGroupIcons

    if %pCount>1

        Parameters hModule&, lpszType&, lpszName&, lParam&
        Var GroupIconName$=String$(lpszName&,0)
        Case GroupIconName$="" : return 0
        Addstring GroupIconName$
        Return 1

    endif

    Parameters fle$
    return ~EnumResourceNames(~LoadLibrary(Addr(fle$)),~RT_GROUP_ICON, ProcAddr("EnumGroupIcons", 4),0)

ENDPROC