XProfan

Declare Handle btn1, btn2, lb
Declare Long ende, String datei, ordner
ende = 0
datei = $ProgDir + "\Images.bmp"
Window 600, 400
btn1 = Create("Button", %HWnd, "Ordner", 10, 10, 60, 25)
btn2 = Create("Button", %HWnd, "Ende",   80, 10, 60, 25)
lb   = Create("Listbox", %HWnd, 0, 10, 50, 450, 200)

WhileNot ende

    WaitInput

    If Clicked(btn1)

        ordner = ChooseDir$(%HWnd, "Ordner wählen", "C:\", 3, "")

        If ordner <> ""

            CHDIR ordner
            ClearList
            AddFiles "*.ico"

            If %GetCount > 0

                ClearList lb
                Move("ListToHandle", lb, ordner)
                InsertImages(lb)

            EndIf

        Else

            MessageBox("Kein Ordner ausgewählt !", "Fehler !", 0)

        EndIf

    ElseIf Clicked(btn2)

        ende = 1

    EndIf

    Case %Key = 2 : ende = 1

EndWhile

Proc InsertImages

    Parameters Handle liste, String pfad
    Declare Long x, y, g
    x = 1
    y = 1
    g = GetCount(liste) * 32
    Mcls g, 32
    StartPaint -1

    WhileLoop 0, GetCount(liste) - 1

        DrawPic pfad + GetString$(liste, &LOOP), x, y; 0
        Inc x, 32

    EndWhile

    EndPaint
    StartPaint -1
    SaveBmp ordner + "Images.bmp", 0, 0 - g, 32
    EndPaint
    MessageBox("Datei : " + ordner + "images.bmp \ngespeichert !", "Info !", 0)

EndProc

End