XProfan

Français

Frank hat un Anwendungstemplate pour une ResHacker bereitgestellt:

Frank Abbing (07.11.2010)

j'ai meinen Code quelque chose erweitert, avec dem qui Iconnamen eines XProfan-Programms gelistet volonté konnten. il pourrait maintenant comme la base dienen, um une eigenen Resourcen-Editor trop écrivons, pour alle Fichiers, qui Resourcen enthalten. peut-être hat oui quelqu'un Lust, plus trop entwickeln.

Kompilieren Marque Séparation

'
' © Frank Abbing pour Paules-PC-Forum
' ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan/
'
Def EnumResourceNames(4) !"kernel32","EnumResourceNamesA"
Def GetSysColor(1) !"user32","GetSysColor"
Def ExtractIconEx(5) !"shell32.dll","ExtractIconExA"
Def EnumResourceTypes(3) !"kernel32","EnumResourceTypesA"
Déclarer x&, y&, text$, hmod&, type&[32], icon&

Proc EnumResNameProc

    Paramètres hModule&, lpszType&, lpszName&, lParam&
    Déclarer nom$
    y& = lpszName& >> $10

    Si non y&

        nom$ = "ID " + Str$(lpszName&)

    D'autre

        nom$ = String$(lpszName&,0)

    Endif

    Si nom$ <> »

        x&=TreeView("InsertItem", treeview&, lParam&, 1, nom$)
        TreeView("SetChildren", treeview&, lParam&, 1)
        TreeView("Expand", treeview&, lParam&, 2)
        Retour 1

    D'autre

        Retour 0

    EndIf

ENDPROC

Proc EnumResTypeProc

    Paramètres hModule&, lpszType&, lParam&
    Déclarer nom$
    y& = lpszType& >> $10

    Si non y&

        nom$ = GetString$(resnames&, lpszType&-1)

    D'autre

        nom$ = String$(lpszType&,0)

    Endif

    Si nom$ <> »

        x&=TreeView("InsertItem", treeview&, 0, 0, nom$)
        EnumResourceNames(hmod&, lpszType&, ProcAddr("EnumResNameProc", 4), x&)
        Retour 1

    D'autre

        Retour 0

    EndIf

ENDPROC

Proc LoadNewFile

    Titre de la fenêtre "Alle Resourcen auflisten."
    TreeView("DeleteItem", treeview&, 0)
    text$ = LoadFile$("Datei ouvrir:","Ausführbare Dateien|*.EXE;*.DLL;*.CPL;*.SYS;*.SCR;*.OCX;*.AMC")

    Si text$<>»

        Cas hmod&: FreeDll hmod&
        hmod& = UseDll(text$)

        Si hmod&

            Titre de la fenêtre "Alle Resourcen auflisten: "+text$
            SendMessage(treeview&,11,0,0)
            UseCursor 2
            EnumResourceTypes(hmod&, ProcAddr("EnumResTypeProc", 3), 0)
            SendMessage(treeview&,11,1,0)
            UseCursor 0

        Endif

    EndIf

ENDPROC

Fenêtre Style 31 + 512
Cls GetSysColor(15)
Var resnames& = Créer("List", 0)
AddStrings(resnames&, "Cursor")
AddStrings(resnames&, "Bitmap")
AddStrings(resnames&, "Icon")
AddStrings(resnames&, "Menu")
AddStrings(resnames&, "Dialog")
AddStrings(resnames&, "String")
AddStrings(resnames&, "FontDir")
AddStrings(resnames&, "Font")
AddStrings(resnames&, "Accelerator")
AddStrings(resnames&, "RCData")
AddStrings(resnames&, "MessageTable")
AddStrings(resnames&, "Group_Cursor")
AddStrings(resnames&, "13")
AddStrings(resnames&, "Group_Icon")
AddStrings(resnames&, "15")
AddStrings(resnames&, "Version")
AddStrings(resnames&, "DlgInclude")
AddStrings(resnames&, "18")
AddStrings(resnames&, "PlugPlay")
AddStrings(resnames&, "Vxd")
AddStrings(resnames&, "AniCursor")
AddStrings(resnames&, "AniIcon")
AddStrings(resnames&, "Html")
AddStrings(resnames&, "Manifest")
PopUp "&Datei"
AppendMenu 100,"Laden"
AppendMenu 200,"Beenden"
Var il& = Créer("ImageList", 16, 16)
ExtractIconEx("shell32.dll", 4, 0, Addr(icon&),1)
ImageList("AddIcon", il&, icon&)
ExtractIconEx("shell32.dll", 2, 0, Addr(icon&),1)
ImageList("AddIcon", il&, icon&)
Var treeview& = Créer("TreeView", %hwnd, il&, 16, 16, 240, 392)
LoadNewFile

Tandis que 1

    WaitInput
    Cas %clé=2: BREAK

    Si MenuItem(100)

        LoadNewFile

    ElseIf MenuItem(200)

        BREAK

    Endif

Endwhile

Fin