XProfan

' Bildschirmschoner una-/ausschalten
'Color de fondo des Desktops einstellen
'Hintergrundbild auswählen oder entfernen
'RGH 17.07.2008
 $H windows.ph
' Screensaver una-/ausschalten
' -----------------------
' schalter% - 1 = una / 0 = de

proc setsaver

    Parámetros schalter%

    if schalter% = 0

        WriteIni "HKEY_1","Control Panel\Desktop", "ScreenSaveActive" = "0"
        WriteIni "HKEY_1","Software\Policies\Microsoft\Windows\Control Panel\Desktop", "ScreenSaveActive" = "0"

    más

        WriteIni "HKEY_1","Control Panel\Desktop", "ScreenSaveActive" = "1"
        WriteIni "HKEY_1","Software\Policies\Microsoft\Windows\Control Panel\Desktop", "ScreenSaveActive" = "1"

    endif

ENDPROC

'Color de fondo einstellen
' ---------------------------
' farbe& - RGB-Valor el Farbe

proc setcolor

    parámetros farbe&
    declarar elem&[0], color&[0]
    elem&[0] = ~COLOR_DESKTOP
    color&[0] = farbe&
    ~SetSysColors(1, addr(elem&[0]), addr(color&[0]))

ENDPROC

'Hintergrundbild einstellen
' ---------------------------
' bild$ - Dateiname para Hintergrundbild

proc setpic

    parámetros bild$

    if bild$ > ""

        WriteIni "HKEY_1","Control Panel\Desktop", "WallpaperStyle" = "3"
        WriteIni "HKEY_1","Control Panel\Desktop", "TileWallpaper" = "2"
        WriteIni "HKEY_1","Control Panel\Desktop", "Wallpaper" = bild$
        ~SystemParametersInfo(~SPI_SETDESKWALLPAPER, 0, addr(bild$), ~SPIF_SENDCHANGE)
        más     Hintergrundbild ausschalten
        WriteIni "HKEY_1","Control Panel\Desktop", "WallpaperStyle" = "0"
        WriteIni "HKEY_1","Control Panel\Desktop", "TileWallpaper" = "0"
        WriteIni "HKEY_1","Control Panel\Desktop", "Wallpaper" = ""
        ~SystemParametersInfo(~SPI_SETDESKWALLPAPER, 0, addr(bild$), ~SPIF_SENDCHANGE)

    endif

ENDPROC

WriteIni "HKEY_1","Software\PoliciesMicrosoft\Windows\Control Panel\Desktop", "ScreenSaveActive" = "0"