![]() |
![]() |
![]() |
|
X-Setup Pro PluginsNote for everybody who is visiting this page via a search engine like Google: 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:
Plugin details
This is the HTML representation of the plugin General Settings (Version 1.01) which can be found in the following path(s) in X-Setup Pro classic:
The plugin can be executed on the following Windows versions (Operation Systems):
Description :
The plugin was created by Xteq Systems
The plugin offers the following user-interface controls: Below is the code of this plugin written in "VBScript". Please note that this code can only be executed inside X-Setup Pro.
'-- ONLY CHANGE THE LINES WITHOUT ' at the beginning !!
'
'*** Xteq Systems "On/Off" Plug-in Template ***
'*** ID_XQ_PT1 V1.00
' how many settings are in this file (change "COUNT=" also!)
CountSettings=4
' does this plug-in requires the user to logoff or to restart his PC?
bRequireLogoff=0
bRequireRestart=1
' if this path exists in the registry, the plug-in will be enabled. if it does
' not exist, the plug-in will be disable set to ="" to ignore this check and alway
' enable the plug-in, regardless if the path exists or not
sCheckPath="HKLM\Software\ATI Technologies\Driver\"
' Settings for Value # 1
sV1_Path="HKLM\Software\ATI Technologies\Desktop\EnableIcon"
sV1_OnValue="1" 'what is the "ON" value (e.g. "1", "True", "On" etc.)
sV1_OffValue="0" 'what is the "OFF" value (e.g. "0", "False", "Off" etc.)
sV1_DataType="1" 'datatype of this value (REG_STRING=1, REG_DWORD=2, REG_BINARY=3, REG_EXPAND_SZ=4)
' Settings for Value # 2
sV2_Path="HKLM\Software\ATI Technologies\Driver\ddhal\EnableKatmai"
sV2_OnValue="1"
sV2_OffValue="0"
sV2_DataType="1"
' Settings for Value # 3
sV3_Path="HKEY_LOCAL_MACHINE\Software\ATI Technologies\CDS\0000\0\ASIC\2D Acceleration"
sV3_OnValue="Yes (0x00000001)" 'what is the "ON" value (e.g. "1", "True", "On" etc.)
sV3_OffValue="No (0x00000000)" 'what is the "OFF" value (e.g. "0", "False", "Off" etc.)
sV3_DataType="1" 'datatype of this value (REG_STRING=1, REG_DWORD=2, REG_BINARY=3, REG_EXPAND_SZ=4)
' Settings for Value # 4
sV4_Path="HKEY_LOCAL_MACHINE\Software\ATI Technologies\CDS\0000\0\ASIC\3D Acceleration"
sV4_OnValue="Yes (0x00000001)"
sV4_OffValue="No (0x00000000)"
sV4_DataType="1"
' Settings for Value # 5
sV5_Path="HKCU\Software\Hypernix\Gooey\Network\AllwaysOntop"
sV5_OnValue="1"
sV5_OffValue="0"
sV5_DataType="2"
'*** Xteq Systems "On/Off" Plug-in Template ***
'
'-- STOP CHANGES HERE !!
Sub Plugin_Initialize
If Len(sCheckPath)>0 then
if left(sCheckPath,1)<>"\" then sCheckPath=sCheckPath & "\"
b=RegPathExists(sCheckPath)
if b=true then
Call ReadSettings
else
Call Disable
end if
else
Call ReadSettings
end if
End Sub
Sub ReadSettings
Call ReadSettingsEx(1,sV1_Path,sV1_OnValue)
if CountSettings>=2 then Call ReadSettingsEx(2,sV2_Path,sV2_OnValue)
if CountSettings>=3 then Call ReadSettingsEx(3,sV3_Path,sV3_OnValue)
if CountSettings>=4 then Call ReadSettingsEx(4,sV4_Path,sV4_OnValue)
if CountSettings>=5 then Call ReadSettingsEx(5,sV5_Path,sV5_OnValue)
End Sub
Sub ReadSettingsEx(ID,REGP,VALON)
s=RegReadValue(REGP)
'Call DebugMsg("VAL:" & s & " ID:" & ID & " VAL_ON:" & VALON)
if CStr(s)=VALON then
Call SetUIElement(ID,true)
End if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
Call WriteSettings(GetUIElement(1),sV1_Path,sV1_OnValue,sV1_OffValue,sV1_DataType)
if CountSettings>=2 then Call WriteSettings(GetUIElement(2),sV2_Path,sV2_OnValue,sV2_OffValue,sV2_DataType)
if CountSettings>=3 then Call WriteSettings(GetUIElement(3),sV3_Path,sV3_OnValue,sV3_OffValue,sV3_DataType)
if CountSettings>=4 then Call WriteSettings(GetUIElement(4),sV4_Path,sV4_OnValue,sV4_OffValue,sV4_DataType)
if CountSettings>=5 then Call WriteSettings(GetUIElement(5),sV5_Path,sV5_OnValue,sV5_OffValue,sV5_DataType)
if bRequireLogoff then Logoff()
if bRequireRestart then Restart()
End Sub
Sub WriteSettings(CUR_VAL,REGP,ON_VAL,OFF_VAL,DAT_TYPE)
if CUR_VAL=true then
Call RegWriteValue(REGP,ON_VAL,DAT_TYPE)
else
Call RegWriteValue(REGP,OFF_VAL,DAT_TYPE)
end if
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: |
|