Jump to content

Bildskärmsegenskaper...


kjell-ake
 Share

Recommended Posts

Hej!

Hur får jag fram bildskärmsegenskaper?

På min "stora" dator så högerklickar jag på skrivbordet. Går in på egenskaper och där är det.

Det enda jag får fram på den bärbara är att jag kan ändra teman.

Om jag däremot går via programmet "Style xp" så kan jag komma in på bildskärmsegenskaper

med  "fönster och knappar" färgschema" osv.

Det går inte hellar att gå via kontrollpanelen.

Inget sort fel men j----- störande när man inte får det att fungera.

Med vänlig hälsning Kjell-Åke

Link to comment
Share on other sites

Hej! Visst är det en bärbar HP...men den andra tråden gäller min "stationära" burk.

Upptäckte förresten att när jag är inne på Style xp så måste jag stå på "visuella stilar" för

att få fram de önskade bildskärmsinställningarna.

Står jag på "teman" så blir det samma som i "högerklicket".

Tur att det bara är ett irritationsmoment och inte ett RIKTIGT fel.

Tips välkomnas!

Med vänlig hälsning Kjell-Åke

Link to comment
Share on other sites

Hitta en tråd me samma fel.

I slutet är de nån vbs-fil. (Inte säker på innehållet)

http://eforum.idg.se/viewmsg.asp?entriesid=936690


vbs filen, om nån har lust o kolla ifall den e ok?

'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="HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"

Task1

basekey="HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"

Task1

basekey2="HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

Task2

basekey2="HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

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

:)

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

×
×
  • Create New...