X-Setup Pro Plugins

Note for everybody who is visiting this page via a search engine like Google:
This page shows the HTML version (with full source code) of one of our many plugins included with our tweaker utility X-Setup Pro. With this tool you can change over 1,700 settings for Windows and other applications - settings that are normally hidden deep inside the registry. Read more about X-Setup Pro on our Product page.

If you are interested in using this plugin, because it contains a tweak you would like to have, it's easy as 1-2-3-4:

• Download X-Setup Pro from our Download page.
• Install it on your computer and execute it.
• On the welcome screen, select "Classic mode".
• Simply use the information about the path and the name of the plugin shown below to easily locate it.

Plugin details

This is the HTML representation of the plugin Active Desktop Component Options (Version 1.13) which can be found in the following path(s) in X-Setup Pro classic:
Appearance\Desktop\Active Desktop

The plugin can be executed on the following Windows versions (Operation Systems):
Any Windows version; Windows 95 Windows 98 Windows ME Windows 2000 Windows XP and Windows 2003

Description :
This plugin allows you to change some settings for Active Desktop. NOTE: When all options are disabled, ActiveDesktop page is not shown in Display Options.

The plugin was created by Ojatex@aol.com
Copyright © Xteq Systems - All Rights Reserved

The plugin offers the following user-interface controls:
Enable Active Desktop Components
Enable adding Active Desktop Components
Enable deleting Active Desktop Components
Enable edit Active Desktop Components

Below is the code of this plugin written in "VBScript". Please note that this code can only be executed inside X-Setup Pro.

'note: 0 = disable restriction, 1 = enable restriction


Sub Plugin_Initialize 

 i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoComponents")
 if i=0 or IsEmpty(i) then SetUIElement 1,true


 i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoAddingComponents")
 if i=0 or IsEmpty(i) then SetUIElement 2,true


 i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoDeletingComponents")
 if i=0 or IsEmpty(i) then SetUIElement 3,true


 i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoEditingComponents")
 if i=0 or IsEmpty(i) then SetUIElement 4,true

 
End Sub

Sub Plugin_CheckData(ElementIndex)
End Sub



Sub Plugin_Apply(ElementIndex,ElementSubIndex)


 b=GetUIElement(1)
 if b=false then
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoComponents","1",2)
 else
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoComponents","0",2)
 end if

 b=GetUIElement(2)
 if b=false then
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoAddingComponents","1",2)
 else
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoAddingComponents","0",2)
 end if

 b=GetUIElement(3)
 if b=false then
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoDeletingComponents","1",2)
 else
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoDeletingComponents","0",2)
 end if

 b=GetUIElement(4)
 if b=false then
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoEditingComponents","1",2)
 else
  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoEditingComponents","0",2)
 end if

 Call IndicateSettingChange()
End Sub


Sub Plugin_Terminate 
End Sub

You can get more detailed information about this plugin inside the application X-Setup Pro. Get the most popular tweaker software for free: Download X-Setup Pro