XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Windows-Hintergrundbild auswechseln
Lauffähig de Profano-Versión 5.0
PRFellow - Presentación
Autor: Thomas Hölzer
Hintergrundbitmap para Desktop invitar/einstellen/löschen
Ejemplo para Verwendung de SystemParametersInfo
Parámetro 1: muß 20 ser para el BMP-Función
Parámetro 2: muß 0 ser
Parámetro 3: Pointer en String, el el Namen el BMP enthält
Parámetro 4: $0003: Eintrag se gespeichert y entspr. Nachricht gesendet
Rückgabe   : Ungleich 0 en Erfolg
Declarar pointer#
Def SetWallPaper(4) !USER32,SystemParametersInfoA
Bild y Anzeigemodus conjunto

Proc SetWPBmp

    Parámetros file$,tiled%
    Dim pointer#,256
    String pointer#,0=file$
    SetWallPaper(20,0,pointer#,$0003)
    Disponer pointer#
    WriteIni HKEY_1,Control Paneldesktop,WallPaper = file$
    So gehts zwar auch, aber SystemParametersInfo es el bessere Weg,
    especialmente uno lo para SPI_SETWININICHANGE eh braucht
    WriteIni HKEY_1,Control Paneldesktop,TileWallpaper = Str$(tiled%)
    SetWallPaper(20,0,0,2) SPI_SENDWININICHANGE

ENDPROC

Hintergrundbild stretchen

Proc SetWPStyle

    Parámetros style%
    WriteIni HKEY_1,Control Paneldesktop,WallPaperStyle = Str$(style%)
    SetWallPaper(20,0,0,2)

ENDPROC

Ejemplo
Declarar bmp$,ende%
Título de la ventana Hintergrundbild conjunto
Ventana 100,100-250,250
Popup &Hintergrundbild
AppendMenu 1, &BMP como Desktophintergrund (zentriert)
AppendMenu 2, B&MP como Desktophintergrund (gekachelt)
Separador
AppendMenu 3, Hintergrundbild en &volle Bildschirmgröße stretchen
AppendMenu 4, &Standardgröße
Separador
AppendMenu 5,&Hintergrundbmp entfernen
Separador
AppendMenu 6,&Beenden

Sinestar encargado ende%

    IF Len(bmp$)

        LoadSizedBmp bmp$,0,0-250,250;0

    ENDIF

    WaitInput

    If MenuItem(1)

        Let bmp$=LoadFile$(Hintergrundbmp para Desktop,*.bmp)
        SetWPBmp bmp$,0

    ElseIf MenuItem(2)

        Let bmp$=Loadfile$(Hintergrundbmp para Desktop,*.bmp)
        SetWPBmp bmp$,1

    ElseIf MenuItem(3)

        SetWPStyle 2

    ElseIf MenuItem(4)

        SetWPStyle 0

    ElseIf MenuItem(5)

        SetWPBmp ,0
        Let bmp$=
        Cls

    Elseif MenuItem(6)

        Let ende%=1

    Elseif MenuItem(254)

        MessageBox(Autor: Thomas Hölzer,PRFellow-Presentación,64)

    EndIf

Wend

End