${SegmentFile}

Var _Custom_OriginalWallpaper

${SegmentPrePrimary}
    ${Registry::Read} "HKCU\Control Panel\Desktop" Wallpaper $_Custom_OriginalWallpaper $R0
!macroend

${SegmentPostPrimary}
    ${Unless} $_Custom_OriginalWallpaper == ""
        ExpandEnvStrings $R0 %PAL:AppDir%\BackgroundSwitcher\BackgroundSwitcher.exe
        ExecWait '"$R0" /switchto overscale "$_Custom_OriginalWallpaper"'
    ${EndUnless}
!macroend