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 Acrobat Reader Plug-ins (Version 1.02) which can be found in the following path(s) in X-Setup Pro classic:
Program Options\Adobe\Acrobat Reader 6.0

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 :
Since Acrobat Reader 6.0, Adobe has included a lot of feature into Acrobat Reader from programs that were available separately before (for example the eBook Reader). This has been done by creating plug-ins for Acrobat Reader that are loaded when the program starts. While this is basically a good idea, it now forced Acrobat Reader to load all plug-in into memory (at about 25 in the full version). Most of these plug-in are not needed by the average user that just wants to view a *.PDF file. These settings allow you to disable groups of plug-in that are not needed by the average user. After each name, you see how big all plug-ins of the group (approx.). To learn more about a group, click the "Show Info" button. To disable or enable a group, just click the "Enable/Disable" button. Please note that this does _NOT_ delete the plug-ins but simply prevents Acrobat Reader from loading them. You can later on always enable them again if need the functionality of the plug-ins. On an average machine this can speed up the loading of Acrobat Reader from 8 seconds to around about 1 second (800% faster!). To see the currently loaded plug-ins in Acrobat Reader, check Help -> About Adobe Plug-Ins. Of course it will not show you any plug-ins from a group you have disabled here.

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

The plugin offers the following user-interface controls:
Show Info
Enable/Disable

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

cInstallPath="HKLM\SOFTWARE\Adobe\Acrobat Reader\6.0\InstallPath\@"
cPlugsPath="plug_ins\"
cCR=chr(13) & chr(10)
cCR2=chr(13) & chr(13)

cDisabled=" [" + GetTextString(1) + "]"

sPath=""


cMaxItems=8
Dim aryNam(8) '=Group Name
Dim aryAPI1(8)
Dim aryAPI2(8)
Dim aryDes(8)
Dim arySug(8)


aryNam(1)=GetTextString(8) + " (~ 4 MB)"
aryAPI1(1)="Accessibility.api"
aryAPI2(1)="MakeAccessible.api"
aryDes(1)=GetTextString(9)
arySug(1)=GetTextString(10)


aryNam(2)=GetTextString(11) + " (~ 1.3 MB)"
aryAPI1(2)="eBook.api"
aryAPI2(2)=""
aryDes(2)=GetTextString(12)
arySug(2)=GetTextString(13)


aryNam(3)=GetTextString(14) + " (~ 3.3 MB)"
aryAPI1(3)="annotations\annots.api"
aryAPI2(3)="XFA.api"
aryDes(3)=GetTextString(15)
arySug(3)=GetTextString(16)


aryNam(4)=GetTextString(17) + " (~ 0.3 MB)"
aryAPI1(4)="printme.api"
aryAPI2(4)=""
aryDes(4)=GetTextString(18)
arySug(4)=GetTextString(19)


aryNam(5)=GetTextString(20) + " (~ 2.7 MB)"
aryAPI1(5)="PPKLite.api"
aryAPI2(5)="DigSig.api"
aryDes(5)=GetTextString(21)
arySug(5)=GetTextString(22)


aryNam(6)=GetTextString(23) +"(~ 0.1 MB)"
aryAPI1(6)="SendMail.api"
aryAPI2(6)=""
aryDes(6)=GetTextString(24)
arySug(6)=GetTextString(25)


aryNam(7)=GetTextString(26) + " (~ 1.2 MB)"
aryAPI1(7)="multimedia\multimedia.api"
aryAPI2(7)=""
aryDes(7)=GetTextString(27)
arySug(7)=GetTextString(28)

'webupdater'
aryNam(8)=GetTextString(29) + " (~ 0.3 MB)"
aryAPI1(8)="Updater.api"
aryAPI2(8)=""
aryDes(8)=GetTextString(30)
arySug(8)=GetTextString(31)


'aryNam(3)="Highlight Server" '49 kB !!! 
'aryAPI(3)="HLS.api"
'aryDes(3)="Highlight Server plug-in"
'arySug(3)=""

'aryNam(4)="SOAP"
'aryAPI(4)="SOAP.api"
'aryDes(4)="SOAP (Simple Object Access Protocol)"
'arySug(4)=""

'aryNam(6)="WorldReady Enabled"
'aryAPI(6)="WorldReady.api"
'aryDes(6)="multinlingual support"
'arySug(6)=""

'aryNam(14)="SaveAsRTF"
'aryAPI(14)="SaveAsRTF.api"
'aryDes(14)="Ability to save a PDF in RTF (Richt Text Format) if the author has allowed this"
'arySug(14)=""



SUB Plugin_Initialize
 sPath=RegReadValue(cInstallPath)
 if IsEmpty(sPath)=false and len(sPath)>0 then
    if right(sPath,1)<>"\" then
       sPath=sPath & "\"
    end if
    sPath=sPath & cPlugsPath

    If FolderExists(sPath)=true then
       'Call DebugMsg(sPath)
       Call ReadAllFiles()    
    else
      Call Disable
    end if
 else
    Call Disable()
 end if

END SUB

Sub ReadAllFiles
 for i=1 to ubound(aryAPI1)
     Call SetUIElement(i,"")
 next

 for i=1 to ubound(aryAPI1)
           sName=aryNam(i) 
           iPS=GetPluginState(aryAPI1(i))
           if iPS>0 then 
              if iPS=2 then sName=sName & cDisabled

              Call SetUIElement(i,sName)
           else
              'plug not found?!?!?!
              'Call DebugMsg("Not found: " & sName)
           end if
       next
End Sub


'Returns the status of a plug-in
'0 = file not found, plug-in properly not installed
'1 = installed and activated
'2 = installed and deactivated
Function GetPluginState(PluginAPIName)
 if FileExists(sPath & PluginAPIName) then
    r=1
 else
    if FileExists(sPath & PluginAPIName & "-") then
       r=2
    else
       r=0
    end if
 end if

 GetPluginState=r
End Function

Sub SetPluginState(PluginAPIName,EnableIt)
 if len(PluginAPIName)>0 then 
    if EnableIt then
       Call FileRename(sPath & PluginAPIName & "-", sPath & PluginAPIName) 
    else
       Call FileRename(sPath & PluginAPIName, sPath & PluginAPIName & "-") 
    end if
 end if

End Sub


SUB Plugin_CheckData(ElementIndex)
END SUB

SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 if ElementSubIndex>0 then
    'sAPI=aryAPI(ElementSubIndex)
    'Call MsgInformation(sAPI)

    if ElementIndex=1 then 'Show Info     
       sText=""
       sText=sText & GetTextString(2) & aryNam(ElementSubIndex) & cCR2
       sText=sText & GetTextString(3) & " 1: " & aryAPI1(ElementSubIndex) & cCR
       sText=sText & GetTextString(3) & " 2: " & aryAPI2(ElementSubIndex) & cCR2
       sText=sText & aryDes(ElementSubIndex) & cCR2
       sText=sText & GetTextString(4) & arySug(ElementSubIndex)
 
       Call MsgInformation(sText)
    end if


    if ElementIndex=2 then 'Enable/Disable
       sUIText=GetUIElement(ElementSubIndex) 

       bIsEnabled=true
       If InStr(sUIText,cDisabled)>0 then
          'is not enabled
          bIsEnabled=false
       end if
 
       Call SetPluginState(aryAPI1(ElementSubIndex),(not bIsEnabled))
       Call SetPluginState(aryAPI2(ElementSubIndex),(not bIsEnabled))
       'Call SetPluginState(aryAPI3(ElementSubIndex),(not bIsEnabled))
       Call ReadAllFiles
    end if


 else
    Call MsgWarningTextString(5) 
 end if


END SUB

SUB Plugin_Terminate
END SUB

Comment by the author: Thanks to mc² for the idea!

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