HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Wallpapersи удалить параметр, содержащий путь к ненужной картинке.
Литература:
https://www.howtogeek.com/370417/how-to-clear-recently-used-desktop-background-images-from-windows-10-settings/
ламер с дебианом aka обезьяна с гранатой
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Wallpapersи удалить параметр, содержащий путь к ненужной картинке.
msiexec /i пакет.msi /L*V журнал.log
NetFrameworkTargetVersion = GetRegistryKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full\TargetVersion", "0.0.0")
if NetFrameworkTargetVersion = "0.0.0" or NetFrameworkTargetVersion <> "4.0.0" then
NetFrameworkUrl = "http://www.microsoft.com/ru-ru/download/details.aspx?id=17718"
InfoMsg = "Для корректной работы требуется Microsoft .Net Framework 4 или более старшая версия"
InfoMsg = InfoMsg + "Ссылка для скачивания представлена ниже"
InputBox InfoMsg, "Программа - Установка", NetFrameworkUrl
Err.Clear
Err.Raise 100
end if
function GetRegistryKey(RegistryKey, DefaultValue)
Dim WSHShell, value
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
Value = WSHShell.RegRead(RegistryKey)
if Err.number <> 0 then
GetRegistryKey = DefaultValue
else
GetRegistryKey = Value
end if
Set WSHShell = Nothing
end function
Почему он так себя ведёт, так и осталось загадкой. В сети, правда, есть слухи, что из соображений безопасности вызов WScript.Shell не приветствуется в CustomAction-ах.