XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Windows-Hintergrundbild auswechseln
Lauffähig ab Profan-Version 5.0
PRFellow - Présentation
Autor: Thomas Bois
Hintergrundbitmap pour Desktop magasin/einstellen/effacer
Beispiel pour Verwendung de SystemParametersInfo
paramètre 1: doit 20 son pour qui BMP-Funktion
paramètre 2: doit 0 son
paramètre 3: Pointer sur String, qui den Namen qui BMP contient
paramètre 4: $0003: Eintrag wird gespeichert et entspr. nouvelle gesendet
Rückgabe   : Ungleich 0 chez Erfolg
Déclarer pointer#
Def SetWallPaper(4) !USER32,SystemParametersInfoA
Bild et Anzeigemodus mettons

Proc SetWPBmp

    Paramètres file$,tiled%
    Faible pointer#,256
    String pointer#,0=file$
    SetWallPaper(20,0,pointer#,$0003)
    Dispose pointer#
    WriteIni HKEY_1,Contrôle Paneldesktop,WallPaper = file$
    So gehts zwar aussi, mais SystemParametersInfo ist qui bessere Weg,
    zumal on es pour SPI_SETWININICHANGE eh braucht
    WriteIni HKEY_1,Contrôle Paneldesktop,TileWallpaper = Str$(tiled%)
    SetWallPaper(20,0,0,2) SPI_SENDWININICHANGE

ENDPROC

Hintergrundbild stretchen

Proc SetWPStyle

    Paramètres style%
    WriteIni HKEY_1,Contrôle Paneldesktop,WallPaperStyle = Str$(style%)
    SetWallPaper(20,0,0,2)

ENDPROC

Beispiel
Déclarer bmp$,ende%
Titre de la fenêtre Hintergrundbild mettons
Fenêtre 100,100-250,250
Popup &Hintergrundbild
AppendMenu 1, &BMP comme Desktophintergrund (zentriert)
AppendMenu 2, B&MP comme Desktophintergrund (gekachelt)
Séparateur
AppendMenu 3, Hintergrundbild sur &volle Bildschirmgröße stretchen
AppendMenu 4, &Standardgröße
Séparateur
AppendMenu 5,&Hintergrundbmp entfernen
Séparateur
AppendMenu 6,&finissons

WhileNot ende%

    IF Len(bmp$)

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

    ENDIF

    WaitInput

    Si MenuItem(1)

        Laisser bmp$=LoadFile$(Hintergrundbmp pour Desktop,*.bmp)
        SetWPBmp bmp$,0

    ElseIf MenuItem(2)

        Laisser bmp$=Loadfile$(Hintergrundbmp pour Desktop,*.bmp)
        SetWPBmp bmp$,1

    ElseIf MenuItem(3)

        SetWPStyle 2

    ElseIf MenuItem(4)

        SetWPStyle 0

    ElseIf MenuItem(5)

        SetWPBmp ,0
        Laisser bmp$=
        Cls

    Elseif MenuItem(6)

        Laisser ende%=1

    Elseif MenuItem(254)

        MessageBox(Autor: Thomas Bois,PRFellow-Présentation,64)

    EndIf

Wend

Fin