XProfan

Declare String INamen, update
Declare Long restype, result
update = "C:\Sprachen\XProfanX4\Change\Leer32.dll"
restype = 3' Icon-Group = 14
Window 600, 400
Inamen = "A,MUELL,BAUM,MUENZE,COMPUTER,PROFAN,DOS,SAND,DRUCKER,STEIN,EDITOR,TEXT,EIMER,WASSER,EIS,WEG,FILEICON,WINDOWS,GESICHT,KNOPF1,KNOPF2"

WhileLoop 1, 21

    result = Res("Load", update, restype, SubStr$(INamen, &LOOP, ","), "C:\Sprachen\XProfan11\Profan.exe")
    Print "Ergebnis : ", &LOOP, ":", If(result = 1, "OK !", "Fail !")

EndWhile

Print "Fertig..."
WaitEnd

Declare String Namen[], dname, orig
Declare Long restype, result
Declare Handle hExe, resinfo[], choice, btn1
Declare Pointer aktRes
orig = "F:\XProfanX4\ResTest\Leer32.dll"' Pfad anpassen !!!!
hExe = UseDLL(orig)
restype = 14' Icon-Group = 14
Window 600, 400
choice = Create("ChoiceBox", &HWnd, 0, 10, 10, 150, 150)
btn1   = Create("Button", &HWnd, "Delete", 200, 10, 80, 25)
ClearList
AddRes hExe, 14

WhileLoop 0, GetCount(0) - 1

    AddString(choice, SubStr$(GetString$(0, &LOOP), 2, "|"))
    Namen[&LOOP] = SubStr$(GetString$(0, &LOOP), 2, "|")

EndWhile

WhileLoop SizeOf(Namen[]) - 1

    resinfo[&LOOP] = Res("Info", hExe, restype, Namen[&LOOP - 1], 0)

EndWhile

FreeDLL hExe

While 1

    WaitInput

    If Clicked(btn1)

        dname = GetText$(choice, GetCurSel(choice))

        If dname <> ""

            result = Res("Change", orig, restype, dname, 0, 0, resinfo[GetCurSel(choice)])
            MessageBox(Str$(result), "GELÖSCHT !!!", 0)

        EndIf

    EndIf

EndWhile

' zdll$ = ziel Dll mit Pfad
hUpdate& = BeginUpdateResource(Addr(zdll$),0)'1 = del all res & add with UPDATE; 0= make Changes by UpdateResource
Print "hUpdate&: ";hUpdate&
type& = 14
' id$ hier = COMPUTER als Group Icon
rr& = UpdateResource(hUpdate&,type&,Addr(id$),Val(lng$),0,0)
'If lpData is NULL and cbData is 0, the specified resource is deleted from the file indicated by hUpdate.
'BOOL UpdateResourceA(
'  [in]           HANDLE hUpdate,
'  [in]           LPCSTR lpType,
'  [in]           LPCSTR lpName,
'  [in]           WORD   wLanguage,
'  [in, optional] LPVOID lpData,
'  [in]           DWORD  cb
');
Print "Update: ";rr&
Print "END: ";EndUpdateResource(hUpdate&,0)' 0= make changes by UpdateResource; 1= no Changes made

Res("Change",D,T,S,N1,N2,N3)...
Die Datei darf nicht geöffnet sein, ansonsten erfolgt eine Fehlermeldung.

Declare Handle icons[]
Declare Long x, y
Window 800, 400
x = 10
y = 10

WhileLoop 0, IconCount("F:\XProfanX4\ResTest\Leer32.dll") - 1

    icons[&LOOP] = Create("hIcon", "F:\XProfanX4\ResTest\Leer32.dll", &LOOP)

EndWhile

x = 10
y = 10

WhileLoop 0, SizeOf(icons[]) - 1

    If &LOOP = 10

        x = 10
        y = 50

    EndIf

    DrawIcon icons[&LOOP], x, y
    Inc x, 50

EndWhile

WaitKey

 $H Windows.ph
Declare Handle tv, ilist
Declare Long x, y
Window 800, 400
ilist = Create("ImageList", 16, 16)
x = 10
y = 10
EnumGroupIcons("F:\XProfanX4\ResTest\Leer32.dll")

WhileLoop 0, IconCount("F:\XProfanX4\ResTest\Leer32.dll") - 1

    ImageList("AddIcon", ilist,  Create("hIcon", "F:\XProfanX4\ResTest\Leer32.dll", &LOOP))

EndWhile

tv = Create("TreeView", %HWnd, ilist, 10, 10, 180, 150)

WhileLoop 0, GetCount(ilist) - 1

    TreeView("InsertItem", tv, 0, &LOOP, GetString$(0, &LOOP))

EndWhile

WaitKey
DeleteObject ilist

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