Я читал в нескольких местах, что обои для рабочего стола могут быть установлены в документе HTML. Кто-нибудь имел какие-либо успехи, изменяя его программным путем?Обои для Windows: не только BMP?
Следующий фрагмент VB6 помогает мне настроить вещи для BMP, но когда я пытаюсь использовать его для HTML, я получаю хороший синий фон и ничего больше.
Dim reg As New StdRegistry
Public Function CurrentWallpaper() As String
CurrentWallpaper = reg.ValueEx(HKEY_CURRENT_USER, "Control Panel\Desktop", "Wallpaper", REG_SZ, "")
End Function
Public Sub SetWallpaper(cFilename As Variant)
reg.ClassKey = HKEY_CURRENT_USER
reg.SectionKey = "Control Panel\Desktop"
reg.ValueKey = "Wallpaper"
reg.ValueType = REG_SZ
reg.Default = ""
reg.Value = cFilename
End Sub
Public Sub RefreshDesktop()
Dim oShell As Object
Set oShell = CreateObject("WScript.Shell")
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
End Sub
Возможно, есть другие настройки, которые необходимы. Есть идеи?
Да, я пробовал это. Я все еще переживаю огромные объемы данных, пытаясь понять, что делает. – bugmagnet 2008-09-17 16:52:42