XProfan

Español

Franco ha una Anwendungstemplate para una ResHacker previsto:

Frank Abbing (07.11.2010)

Yo habe media Code algo erweitert, con el el Iconnamen uno XProfan-Programms gelistet voluntad konnten. Er podría ahora como Base dienen, en una eigenen Resourcen-Editor a escribir, para todos Archivos, el Resourcen enthalten. Tal vez ha sí alguien Lust, más para desarrollar.

Kompilieren Marca Separación

'
' © Frank Abbing para Paules-PC-Foro
' ./../../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"
Declarar x&, y&, texto$, hmod&, type&[32], icon&

Proc EnumResNameProc

    Parámetros hModule&, lpszType&, lpszName&, lParam&
    Declarar name$
    y& = lpszName& >> $10

    Caso negativo y&

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

    Más

        name$ = String$(lpszName&,0)

    Endif

    If name$ <> ""

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

    Más

        Volver 0

    EndIf

ENDPROC

Proc EnumResTypeProc

    Parámetros hModule&, lpszType&, lParam&
    Declarar name$
    y& = lpszType& >> $10

    Caso negativo y&

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

    Más

        name$ = String$(lpszType&,0)

    Endif

    If name$ <> ""

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

    Más

        Volver 0

    EndIf

ENDPROC

Proc LoadNewFile

    Título de la ventana "Alle Resourcen auflisten."
    TreeView("DeleteItem", treeview&, 0)
    texto$ = LoadFile$("Datei abierto:","Ausführbare Dateien|*.EXE;*.DLL;*.CPL;*.SYS;*.SCR;*.OCX;*.AMC")

    If texto$<>""

        Case hmod&: FreeDll hmod&
        hmod& = UseDll(texto$)

        If hmod&

            Título de la ventana "Alle Resourcen auflisten: "+texto$
            SendMessage(treeview&,11,0,0)
            UseCursor 2
            EnumResourceTypes(hmod&, ProcAddr("EnumResTypeProc", 3), 0)
            SendMessage(treeview&,11,1,0)
            UseCursor 0

        Endif

    EndIf

ENDPROC

Ventana de Estilo 31 + 512
Cls GetSysColor(15)
Var resnames& = Crear("List", 0)
AddStrings(resnames&, "Cursor")
AddStrings(resnames&, "Mapa de bits")
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& = Crear("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& = Crear("TreeView", %hwnd, il&, 16, 16, 240, 392)
LoadNewFile

Mientras que 1

    WaitInput
    Case %key=2: BREAK

    If MenuItem(100)

        LoadNewFile

    ElseIf MenuItem(200)

        BREAK

    Endif

EndWhile

End