XProfan

proc getDeskBgPicture

    declare mem#,s$
    dim mem#,260
    clear mem#
    external("user32","SystemParametersInfoA",$73,260,mem#,0)
    s$:=string$(mem#,0)
    dispose mem#
    return s$

endproc

proc getDeskBgTiledProp

    return val(readini$("HKEY_1","Control Panel\Desktop","TileWallpaper"))

endproc

proc getDeskBgStretchedProp

    return if(val(readini$("HKEY_1","Control Panel\Desktop","WallpaperStyle")),1,0)

endproc