Bruce said:
My neice has a laptop with xp prof.
Happened yesterday, that she can not
change the background (properties/background)
Not able to highlight the names under the background list, nor the
browse. The color button can be accessed.
When she starts it, it will show the picture background
but when windows finally is all up, it has a color background.
Administrator is the only account.
thanks Bruce
are you missing tabs? if so try this follow this link
http://www.winhelponline.com/articles/38/1/ and look down to atachments
middle of the page follow directions OR do this, copy below paste into
notepad and save as a .vbs
then run it,
Clark...
'Restores missing tabs in the Display properties
'For use with Windows® XP only.
'Created on May 09, 2006
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Homepage:
http://windowsxp.mvps.org
' Copyright © 2006, Ramesh Srinivasan
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Option Explicit
Dim WshShell, basekey,basekey2, rtn
Set WshShell = CreateObject("WScript.Shell")
basekey="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Task1
basekey="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Task1
basekey2="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
Task2
basekey2="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
Task2
Sub Task1()
On Error Resume Next
rtn = WshShell.Regdelete (basekey & "NoDispCPL")
rtn = WshShell.Regdelete (basekey & "NoDispAppearancePage")
rtn = WshShell.Regdelete (basekey & "NoDispBackgroundPage")
rtn = WshShell.Regdelete (basekey & "NoDispScrSavPage")
rtn = WshShell.Regdelete (basekey & "NoDispSettingsPage")
On Error Goto 0
End Sub
Sub Task2()
On Error Resume Next
rtn = WshShell.Regdelete (basekey2 & "NoThemesTab")
rtn = WshShell.Regdelete (basekey2 & "ClassicShell")
rtn = WshShell.Regdelete (basekey2 & "NoChangingWallPaper")
rtn = WshShell.Regdelete (basekey2 & "ForceActiveDesktopOn")
rtn = WshShell.Regdelete (basekey2 & "NoActiveDesktop")
rtn = WshShell.Regdelete (basekey2 & "NoWebView")
On Error Goto 0
End Sub
Wshshell.RUN ("regsvr32.exe shell32.dll -i -s")
Wshshell.RUN ("regsvr32.exe themeui.dll -s")
Msgbox "Done"
Set WshShell = Nothing