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 App Paths Editor (Version 2.20) which can be found in the following path(s) in X-Setup Pro classic:
System\File System\App Paths

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 :
If you would like to start a program e.g. "MYAPP.exe" Windows first search the current WINDOWS and WINDOWS\SYSTEM folder for this file. If it's not found, Windows will continue to search for it in the %PATH% variable and if it's still not found, searches this list. If the EXE name is found, Windows will simply execute what you have configured, even if it's a total different file. Just edit the existing entries to your needs or add a new one, e.g. for some DOS tools you might have. You can easily create an "alias" for programs you often use this way.

The plugin was created by Xteq Systems
Copyright © Xteq Systems - All Rights Reserved

The plugin offers the following user-interface controls:
Edit...
Add new...
Delete

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

'Declaration of some constants
sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\"
sV1="\@"
sV2="\Path"

Dim iCount
Dim aryLoc()

'Called when the Plugin is started
SUB Plugin_Initialize
 'empty list
 For l=1 to iCount
     Call SetUIElement(l,"")
 next

 'read again
 iCount=RegEnumPaths(sP)
 
 if iCount>0 then
    'redim array
    ReDim aryLoc(iCount)

    for l=1 to iCount
        s=RegEnumElement(l)
        aryLoc(l)=s

        's=sP & RegEnumElement(l) & sV1
        's=RegReadValue(s)
        Call SetUIElement(l,s)
    next
 else
    Disable
 end if
END SUB

'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB

'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 If ElementIndex=2 then 'Add new
    sNewName=InputWindow(GetTextString(1),"",1) 
    if IsEmpty(sNewName)=false then
       
       if InStr(sNewName,"\")<=0 then           
          sNewPath=InputWindow(GetTextString(2),sNewName,1) 
            
          if IsEmpty(sNewPath)=false then
             Call RegWriteValue(sP & sNewName & sV1,sNewPath,1)
             Call Plugin_Initialize()
             Call MsgInformationTextString(3)
         end if
         
       else
          Call MsgErrorTextString(8)
       end if
      
   end if

 else


   if ElementSubIndex>0 then 'OK, user has selected an item 
       Select Case ElementIndex
       Case 1 'Edit existing one
            sName=aryLoc(ElementSubIndex)
            sPath=RegReadValue(sP & sName & sV1)
            
            if len(sPath)=0 then 
               'oops, this one seems to use the PATH option
               sPath=RegReadValue(sP & sName & sV2)
            end if
         
            sNew=InputWindow(GetTextString(4),sPath,1) 
            if IsEmpty(sNew)=false then
               Call RegWriteValue(sP & sName & sV1,sNew,1)
               Call MsgInformation(GetTextString(5) + " " & sNew)
            end if

       Case 3 'DELETE
            sName=aryLoc(ElementSubIndex)
            Call RegDeleteValue(sP & sName & sV1)   
            Call RegDeletePath(sP & sName)   
            Call Plugin_Initialize()
            Call MsgInformationTextString(6)
            
       End Select
   else
       Call MsgWarningTextString(7)
   end if


 end if
END SUB

'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB

Comment by the author: Thanks to TheRealFastlane for the bug notice!

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