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-ах.