XProfan

 $H windows.ph
 $H messages.ph
cls
SubClass %HWnd, 1
Var ende& = 0
~PaintDesktop(%hdc)

WhileNot ende&

    Waitinput

EndWhile

SubClassProc

    If SubClassMessage(%hWnd, $1A)WM_SETTINGCHANGE

        If &swParam = 20 SPI_SETDESKWALLPAPER

            ~PaintDesktop(%hdc)
            Print "Hintergrund gewechselt"

        Endif

        Set("WinProc", 0)

    EndIf

ENDPROC