XProfan

Danke an Andreas Miete
der dies aus seiner Schatzkiste zusammengestellt hat
 $H windows.ph

Proc Is_IntResource

    Declare IntResource$
    Parameters Type&
    IntResource$ = 1,2,3,4,5,6,7,8,9,10,11,12,14,16,17,19,20,21,22,23,24

    If Instr(Str$(Type&),IntResource$)

        Return 1

    Else

        Return 0

    Endif

EndProc

Proc IntResourceToString

    Parameters Type&
    Declare I_Str$
    Case Type& = 1 : I_str$ =CURSOR
    Case Type& = 2 : I_str$ =BITMAP
    Case Type& = 3 : I_str$ =ICON
    Case Type& = 4 : I_str$ =MENU
    Case Type& = 5 : I_str$ =DIALOG
    Case Type& = 6 : I_str$ =STRINGTABLE
    Case Type& = 7 : I_str$ =FONTDIR
    Case Type& = 8 : I_str$ =FONT
    Case Type& = 9 : I_str$ =ACCELERATOR
    Case Type& = 10 : I_str$ =RCDATA
    Case Type& = 11 : I_str$ =MESSAGETABLE
    Case Type& = 12 : I_str$ =GROUP_CURSOR
    Case Type& = 14 : I_str$ =GROUP_ICON
    Case Type& = 16 : I_str$ =VERSIONINFO
    Case Type& = 17 : I_str$ =DLGINCLUDE
    Case Type& = 19 : I_str$ =PLUGPLAY
    Case Type& = 20 : I_str$ =VXD
    Case Type& = 21 : I_str$ =ANICURSOR
    Case Type& = 22 : I_str$ =ANIICON
    Case Type& = 23 : I_str$ =HTML
    Case Type& = 24 : I_str$ =MANIFEST
    Return I_Str$

EndProc

Proc ResTypes

    Parameters hModul&,lpszType&,lParam&

    If Is_IntResource(lpszType&)

        Print IntResourceToString(lpszType&)

    else

        Print String$(lpszType&,0)

    Endif

    ~EnumResourceNames(hModul&,lpszType&,ProcAddr(ResNames,4),0)
    Return 1

EndProc

Proc ResNames

    Parameters hModul&,lpszType&,lpszName&,lParam&

    If lpszName& & $FFFF0000

        Print   +String$(lpszName&,0)

    else

        Print   +Str$(lpszName&)

    Endif

    Return 1

EndProc

Var Dll& = Usedll(lleer32.Dll)Pfad zur Dll anpassen
cls
~EnumResourceTypes(dll&,ProcAddr(ResTypes,3),0)
waitinput
end