Цитата: Vlado от 04.08.2025, 15:48
Имир, Доброго.
Set objShell = CreateObject("WScript.Shell")
lastkeypath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Wallpapers"
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", lastkeypath, "REG_SZ"
objShell.Run "regedit", 1, False
Имир, Доброго.
Set objShell = CreateObject("WScript.Shell")
lastkeypath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Wallpapers"
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", lastkeypath, "REG_SZ"
objShell.Run "regedit", 1, False